Program z1
const n=30;
var a: array [1..n] of integer;s, i: integer;
begin
randomize;
for i:=1 to n doa[i]:= random (151)+50;for i:= 1 to n dos:=s+a[i];
writeln ('количество=',s);
readln;
end.
Просто кликаем правой кнопкой мыши на файл потом выбираем там свойство и вауля)
Ответ:
Потом сигнал светофора переключился, плотный ряд автомобилей чуть подвинулся вперёд, и момент для поворота был уже безвозвратно упущен.
Var ar:array of integer;
i,n:integer;
procedure FirstPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if ar[i]<=25 then inc(k);
writeln(k);
end;
procedure SecPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if (ar[i]>=40) and (ar[i]<=50) then inc(k);
writeln(k);
end;
begin;
randomize;
readln(n);
setlength(ar,n+1);
writeln('Array');
for i:=1 to n do
begin;
ar[i]:=random(0,50);
write(ar[i]:4);
end;
writeln;
FirstPr(ar,n);
SecPr(ar,n);
<span>end.</span>
Program n1;
var a,sum: integer;
begin
write('введите число: ');
readln(a);
sum:=(a mod 10)+(a div 10);
writeln('сумма цифр числа ',a,' равна ',sum);
end.