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

Задачи в Паскале

1.Дано массив из 17 элементов. Вычислить произведение отрицательных чисел массива.

И какие числа вводить, напишите, пожалуйста к каждой задаче!

2.Дано массив из 20 элементов. Вычислить сумму, количество, среднее арифметическое чисел массива, которые кратны 3.

1
Откуда брать элементы для массива? Пользователь вводит или случайные?

Ответы и объяснения

2013-11-06T01:19:48+04:00
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[i]);
b := 1;
For i := 1 To n Do
If a[i] < 0 Then
b := b * a[i];
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[i]);
b := 0;
c := 0;
For i := 1 To n Do
If a[i] Mod 3 = 0 Then
Begin
b := b + a[i];
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.