Const n=10;
var a:array[1..n] of integer;
prz:integer;
i:byte;
begin
prz:=1;
for i:=1 to n do
begin
a[i]:=-56+random(103);
if (i mod 2=0) and (a[i]>5) then
prz:=prz*a[i];
write(a[i],' ');
end;
writeln('prz= ',prz);
end.
Program project; //объявляем название программы
Var //объявляем переменные
a: integer; //integer - целое число
Begin //начинаем собственно программу
>><span>a:=1</span>; //первое число будет состоять из единиц
>>While a <> 10 do //начинаем цикл, который будет длиться, пока "а" не достигнет 10
>>Begin //начало цикла
>>>>Writeln (a, a, a); //записываем "а" трижды
>>>>a:=a+1; //прибавляем к "а" единицу
>>End; //конец цикла
End. //конец программы
P. S. Вместо ">>" пиши пробелы, просто они здесь не отображаются
Налить в 5литровую банку воды, перелить из нее в 2литровую, отсанется 3 литра, и ещё раз перелить в 2литровую, останется 1 литр
<span>С помощью естественного языка люди могут общаться понимая друг друга,а формальный свойствен только для общения с той или иной работой. </span>