Program rok;
var a:array [1..30] of integer;
i,s,n:integer;
begin
s:=0;
n:=0;
randomize;
for i:=1 to 30 do
begin
a[i]:=random (25)-10;
write(a[i],' ');
end;
writeln;
for i:=1 to 20 do
begin
if (a[i]>0) then
s:=s+1;
if (a[i]=0) then
n:=n+1;
end;
writeln ('Количество
положительных чисел=',s);
writeln ('Количество
нулей=',n);
end.
Вот держи.. Было очень легко.. Надеюсь ты поймёшь как это делать.
const n=10;
var a:array [1..n] of integer;
i,x:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(11)+10;
write(a[i]:3,' ')
end;
writeln;
write('x = ');
readln (x);
for i:=1 to n do if a[i]=x then writeln('A[',i,'] = ',a[i])
end.
Да, всё правильно. При неправильной команде СКИ выдаст "не понимаю", при невозможности исполнения выдаст "не могу"
петр- математик, роман химик,сергей-физик