irinka15012002

16.01.2021 19:10 •  Информатика

1. Правильно ли описан массив С? Если нет, то что надо изменить? Const nl=25;

Type m=Array[15..-nl] Of Integer;

Var С: m;

2. Что получится в результате выполнения программы?

Program Variant2;

Const n=10;

Type myarray=Array[1..n] Of Integer;

Var D: myarray;

i: Byte; p: Integer;

Begin

p:=0;

+ For i:=l To n Do

Begin

D[i]:=-25+Random(51);

If D[i]<0 Then p:=p+D[i];

End;

Writeln (p);

Readln;

End.

3. Дан массив целых чисел, состоящий из 25 элементов. Заполнить его с клавиатуры. Найти:

сумму элементов, имеющих нечетные индексы;

число элементов массива, значения которых больше заданного числа А и кратны 5.

4. Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2.