1. Правильно ли описан массив А? Если нет, то что надо изменить?
Type myarray=Array[-10..n] Of Integer;
Var A: myarray;
2. Что получится в результате выполнения программы?
Program Variantl;
Const n=7;
Type myarray=Array[1..n] Of Integer;
Var C: myarray;
i: Byte; p: Integer;
Begin
p:=0;
For i:=l To n Do
Begin
C[i]:=-50+Random(151);
If C[i]>50 Then p:=p+C[i];
End;
Writeln (p);
Readln;
End.
3. Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры. Найти:
сумму элементов, имеющих нечетное значение;
и вывести индексы тех элементов, значения которых больше заданного числа А.
4. Определить, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры).
Ответы
Ответ дал:
0
Ответ:
ответ дан правильно если сравнить и приравниватся к математическим формулам
Вас заинтересует
1 год назад
1 год назад
1 год назад
8 лет назад