На бесконечном поле имеется лестница. Сначала лестница спускается вниз слева направо, затем спускается вниз справа налево. Высота каждой ступени- одна клетка, ширина- две клетки. Робот находится слева от верхней ступени лестницы.
2) USES CRT; VAR A:array[0..200] of integer; i,max,s:integer; BEGIN CLRSCR; Randomize; Writeln('Дан массив:'); for i:=0 to 200 do begin A[i]:=-100+random(150); Write(A[i],' '); end;
s:=0; max:=A[0];
for i:=0 to 200 do begin if A[i] > max then max:=A[i]; if A[i]>=0 then s:=s+1; end;
Writeln; Writeln('Максимальный элемент массива = ', max); Writeln('Кол-во положительных элементов = ',s); READLN; END.
USES CRT;
VAR A:array[0..200] of integer;
i,max,s:integer;
BEGIN
CLRSCR;
Randomize;
Writeln('Дан массив:');
for i:=0 to 200 do
begin
A[i]:=-100+random(150);
Write(A[i],' ');
end;
s:=0;
max:=A[0];
for i:=0 to 200 do
begin
if A[i] > max then max:=A[i];
if A[i]>=0 then s:=s+1;
end;
Writeln;
Writeln('Максимальный элемент массива = ', max);
Writeln('Кол-во положительных элементов = ',s);
READLN;
END.
Средняя группа «Ягуары» вт чт пт 15:00-17:45
Старшая группа «Львы» пн пт вс 15:00-17:15
•Приняты (младшая группа)
•Илья Вишневский 47
•Андрей Шереметьев 93
•Василий Шульц 53
•Егор Золотарев 64
•Владимир Ефимов 76
•Георгий Троицкий 25
•Владислав Сулимов 36
•Леонид Пономарёв 73
•Семён Туманов 91
•Филипп Мухин 49
•Роман Беляев 16
•Марк Фролов 84
•Приняты (средняя группа)
•Святослав Поляков 34
•Денис Никифоров 88
•Дмитрий Щербаков 17
•Сергей Жуков 23
•Артем Игнатьев 98
•Никита Трофимов 26
•Егор Карпов 9
•Александр Назаров 3
•Данил Воронин 11
•Владимир Титов 2
•Максим Абрамов 61
•Артур Соболев 13
Приняты (старшая группа)
Захар Прокофьев 53
Евгений Шмидт 94
Павел Фомин 82
Юрий Гаврилов 42
Пётр Киселёв 47