СРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ...

СРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА НАДО, УМОЛЯЮ, ТОЛЬКО ПРАВИЛЬНО!!!ЯУЖЕ 20 РАЗ ЭТО ЗАДАНИЕ ПОСЫЛАЮ, НАПИШИТЕ!!! КТО СМОЖЕТ, ТОЛЬКО ПРАВИЛЬНО!

 

Program Zadacha1;
Const n = 17;
Var a: Array [1..n] of Integer;
i, b: Integer;
Begin
WriteLn('Введите ', n, ' чисел через пробел');
For i := 1 To n Do
Read(a);
b := 1;
For i := 1 To n Do
If a < 0 Then
b := b * a;
If b <> 1 Then
WriteLn('Произведение отрицательных чисел массива равно ', b)
Else
WriteLn('Массив не содержит отрицательных чисел');
ReadLn;
End.

Program Zadacha2;
Const n = 20;
Var a: Array [1..n] of Integer;
i, b, c: Integer;
d: Real;
Begin
WriteLn('Введите ', n, ' чисел через пробел');
For i := 1 To n Do
Read(a);
b := 0;
c := 0;
For i := 1 To n Do
If a Mod 3 = 0 Then
Begin
b := b + a;
c := c + 1;
End;
d := b / c;
If c <> 0 Then
Begin
WriteLn('Сумма чисел массива, кратных 3, равна ', b);
WriteLn('Количество чисел массива, кратных 3, равно ', c);
WriteLn('Среднее арифметическое чисел массива, кратных 3, равно ', d:3:2);
End
Else
WriteLn('Массив не содержит чисел, кратных 3');
ReadLn;
End.