Голубая. Потому что тот ничего не исполняет. Машина (забыла как называется) исполняет перевозку. Шкаф исполняет "хранение".
Пожарный или кто там... Исполняет (если пожарник), то исполняет роль "человека"
//PascalABC.Net 3.1 сборка 1200
uses System;
var
n: longint;
begin
var s := new List<longint>();
repeat
Readln(n);
if n <> 0 then s.Add(n);
until n = 0;
Println(s);
var av := s.Average;
Println(s.Where(x -> x > av));
end.
Ответ под номером Г)
..................................
Для начала создайте файл типа блокнот (расширение .txt) под названием input. Файл output создастся автоматически.
Program apple;
Uses crt;
Var a, b, m, n: integer;
f1, f2: text;
Begin
Assign (f1, 'input.txt');
Assign (f2, 'output.txt');
Reset (f1);
Rewrite (f2);
Readln (a, m, b, n);
If a*m>b*n then
Writeln (f2, a*m)
Else writeln (f2, b*n);
Close (f1);
Close (f2);
End.
Раз в обоих заданиях известно количество элементов в массиве, то имеет смысл использовать цикл for.
Задание №1
const n=20;
var
a:array[1..n] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to n do begin
a[i]:=random(1001);
if a[i] mod 10 = 4 then s:=s+1;
end;
writeln(s);
end.
<span>Задание №2
const n=20;
var
a:array[1..n] of integer;
i,max,nmax:integer;
begin
max:=0;
for i:=1 to n do begin
a[i]:=random(1001);
if a[i] >max then begin
nmax:=i;
max:=a[i];
end;
write(a[i]:5);
end;
writeln;
writeln(nmax,' ',a[nmax]);
end.
</span>