Ответ:
var a:array [1..15] of integer ;
i,col:integer;
begin
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>200 then col:=col+1;
end;
writeln('Колічесто: ',col);
end.
Объяснение:
Информатика?
Попробуй нажать;
Ctrl+Alt+Home
Const
n=100;
var
i,m,s:integer;
com:array[1..n] of integer;
begin
randomize;
readln(s);
for i:=1 to n do begin com[i]:= random(100);
if com[i] mod s =0 then s:=s+com[i]
end;
writeln(s);
end.
var
s:string;
begin
write ('Введите предложение: ');
readln(s);
if pos('с',s)>pos('т',s)
then writeln ('Буква «т» встречается раньше')
else writeln('Буква «с» встречается раньше');
end.
Ответ в файле, построен график