СРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА НАДО, УМОЛЯЮ, ТОЛЬКО ПРАВИЛЬНО!!!Я
10-11 класс
|
УЖЕ 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[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.
Откуда брать элементы для массива? Пользователь вводит или случайные?
Другие вопросы из категории
предложения и т.д. Т.е. к примеру дано предложение "QQQWWWeeeTTTWWW" после зашифровки должно быть так "WWWTTTeeeWWWQQQ"
2. Дан массив целых чисел. Найти Max элемент
Дана квадратная матрица. Найти минимальное значение среди элементов, расположенных выше главной диагонали.
Читайте также
УМОЛЯЮ, ТОЛЬКО ПРАВИЛЬНО!!!Я УЖЕ 30 РАЗ ЭТО ЗАДАНИЕ ПОСЫЛАЮ, НАПИШИТЕ!!! КТО СМОЖЕТ, ТОЛЬКО ПРАВИЛЬНО! КТО, ЧТО СМОЖЕТ, НО НАДО ВСЕ, НА ЗАВТРА!!!
1.Дано массив 5*5, заполнить массив случайными числами не больше 30 и найти сумму парных элементов массива, которые находятся под главной диагонали и количество не парных элементов которые находятся над главной диагонали.
ПРИМЕРУ(СМ. ВЛОЖЕНИЯ)
1. Создайте двумерный массив целых чисел размером 5*2, заполненный
паскале) помогите пожалуйста на завтра надо!!?