Регистрация
boyko3333
24.10.2020 07:14
Информатика
Есть ответ 👍

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.

179
268
Посмотреть ответы 1

Ответы на вопрос:

piiip
piiip
4,8(22 оценок)
A. p.s. сменил угол 328 раз, т.е. 0 раз для 4-х углов (сделал 82 «круга»).

Популярно: Информатика