Integer показывает, что тип данных является целым, второй вариант отпадает
по идее первый и третий подходят
256000 бит/с * 120 = 30720000 бит = 3840000 байт = 3750 кбайт
uses crt;
var
ar: array[1..19]of integer;
i, mul, sum, count, min, mini: integer;
begin
count := 0;
sum := 0;
mul := 1;
randomize;
for i := 1 to 19 do
begin
ar[i] := random(13) - 6;
mul := mul * ar[i];
if(ar[i] mod 2 = 0) then
begin
textbackground(green);
sum := sum + ar[i];
count := count + 1;
end;
if(ar[i] = 5) then
textbackground(red);
write(ar[i], ' ');
textbackground(black);
end;
writeln();
writeln('Произведение всех элементов массива = ', mul);
writeln('Сумма четных чисел = ', sum, ', количество = ', count);
min := ar[1];
mini := 1;
write('Номера элементов, равных 5: ');
for i := 1 to 19 do
begin
if(ar[i] = 5) then
write(i, ' ');
if((ar[i]) < min) then
begin
min := ar[i];
mini := i;
end;
end;
writeln();
writeln('Минимальный элемент = ', min, ', его номер = ', mini);
end.
1) 1.начало
2.пока впереди есть свободная клетка
3.начало цикла
4.идти вперёд на 1 клетку
5.закрасить клетку
6.конец цикла
7.повернуться на 90 градусов против часовой стрелки
8.пока клетка!=клетке А повторить действия 2-7
9.конец.
2) 1.начало
2.пока впереди есть свободная клетка
3.начало цикла
4.идти вперёд на 1 клетку
5.закрасить клетку
6.конец цикла
7.повернуться на 90 градусов по часовой стрелке
8.пока впереди есть свободная клетка
9.начало цикла
10.идти вперёд на 1 клетку
11.закрасить клетку
12.конец цикла
13.повернуться на 90 градусов против часовой стрелки
14.пока клетка!=клетке А
15.начало цикла
16.идти вперёд
17.закрасить клетку
18.конец цикла
3)
начало
пока робот не напротив стены идти вперёд;
закрасить клетку
начало повтора
пока впереди под стеной есть клетки
начать цикл
идти вперёд
закрасить клетку
закончить цикл
повернуться на 90 градусов по часовой стрелке
пока впереди под стеной есть клетки
начать цикл
идти вперёд
закрасить клетку
закончить цикл
пока робот напротив стены
начало цикла
повернуться на 90 градусов по часовой стрелке
идти на 1 клетку вперёд
повернуться на 90 градусов по часовой стрелке
пока впереди под стеной есть клетки
начать цикл
идти вперёд
закрасить клетку
закончить цикл
повернуться на 90 градусов против часовой стрелки
идти на 1 клетку вперёд
повернуться на 90 градусов против часовой стрелки
пока впереди под стеной есть клетки
начать цикл
идти вперёд
закрасить клетку
конец цикла
конец цикла
повернуться на 90 градусов по часовой стрелке
пока впереди есть клетки идти вперёд
повернуться на 90 градусов по часовой стрелке
пока впереди есть клетки идти вперёд
повернуться на 90 градусов по часовой стрелке
пока робот не напротив стены идти вперёд;
закрасить клетку
пока робот напротив стены
начало цикла
пока впереди под стеной есть клетки
начать цикл
идти вперёд
закрасить клетку
закончить цикл
повернуться на 90 градусов по часовой стрелке
идти на 1 клетку вперёд
повернуться на 90 градусов по часовой стрелке
пока впереди под стеной есть клетки
начать цикл
идти вперёд
закрасить клетку
конец цикла
повернуться на 90 градусов против часовой стрелки
идти на 1 клетку вперёд
повернуться на 90 градусов против часовой стрелки
пока впереди под стеной есть клетки
начать цикл
идти вперёд
закрасить клетку
конец цикла
конец цикла
в 3-ем могла напутать