program raf105;
const
n = 35;
var
a: array[1..30] of integer;
b: array[1..40] of integer;
c: array[1..n] of integer;
i : integer;
begin
writeln('Заполните массив A');
for i:=1 to 30 do
readln(a[i]);
writeln('Заполните массив B');
for i:=1 to 40 do
readln(b[i]);
writeln('Заполните массив C');
for i:=1 to n do
readln(c[i]);
for i:=1 to 40 do
begin
if (a[i] < 0) or (b[i] < 0) then
begin
writeln('Нет');
break
end;
if c[i] < 0 then
begin
writeln('Да');
break
end;
end;
end.
<h3>PascalABC</h3>
Если ты вводишь букву(а ты это знаешь), то просто выводи другую переменную с числовым значением.
30, 31,32,33,34,35,36,37,38,39
50, 51, 52, 53, 54, 55, 56, 57, 58, 59
1 строка 3,5,4,2,1,1,2
2 строка 1,2,4,6,7,5,4,3,2,5,6,3,1
3строка 5, 2, 1,7,8,5,6,3,4,10,9,6
1.
если считать что Робот начинает путь с точки (1,1)
закраситьвправозакраситьвправо закраситьвверхзакраситьвправозакраситьвверхзакраситьвправозакраситьвверх закраситьвправозакрасить