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

+ 0 -

AGSA

24 июля 2013 г., 12:30:27 (10 лет назад)

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.

+ 0 -

Lantatanja

24 июля 2013 г., 14:16:01 (10 лет назад)

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