program n_1;
var a: array [1..30] of integer; n, m, k, l, i:integer; s: double;
begin
n:=0; m:=0; n:=0; k:=0; l:=0;
for i:=1 to 30 do begin
read(a[i]);
s:=s+a[i];
if a[i]=2 then m:=m+1
else if a[i]=3 then n:=n+1
else if a[i]=4 then k:=k+1
else if a[i]=5 then l:=l+1
end;
writeln('Средний класса: ', s/30);
writeln('Количество двоечников: ', m);
writeln('Количество троечников: ', n);
writeln('Количество хорошистов: ', k);
writeln('Количество отличников: ', l);
writeln('Успеваемость класса: ', (30-m)/3*10, '%');
end.
var
s: string[6];
n: integer;
begin
s := 'отлично';
n := length(s);
writeln(length('отлично'));
writeln(n);
end.
Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
ответ 6
2) рисунок
3)var
s, s1: string;
n: integer;
begin
s := 'информатика';
s1 := copy(s, 3, 5);
n := pos(s, s1);
writeln('s=', s);
writeln('s1=', s1);
writeln('n=', n);
end.
Вывод
s=информатика
s1=форма
n=0
Все верно, в s1 не содержится s, а наоборот
program n_1;
var a: array [1..30] of integer; n, m, k, l, i:integer; s: double;
begin
n:=0; m:=0; n:=0; k:=0; l:=0;
for i:=1 to 30 do begin
read(a[i]);
s:=s+a[i];
if a[i]=2 then m:=m+1
else if a[i]=3 then n:=n+1
else if a[i]=4 then k:=k+1
else if a[i]=5 then l:=l+1
end;
writeln('Средний класса: ', s/30);
writeln('Количество двоечников: ', m);
writeln('Количество троечников: ', n);
writeln('Количество хорошистов: ', k);
writeln('Количество отличников: ', l);
writeln('Успеваемость класса: ', (30-m)/3*10, '%');
end.