Program n1; const n=5; var a: array [1..n] of integer; k,i: integer; begin k:=0; for i:=1 to n do readln(a[i]); for i:=1 to n do if (a[i]=7) then k:=k+1; writeln('количество: ',k); end.
//В квадратной матрице A [n, n] определить количество строк упорядоченных //по убыванию суммы и вывести их номера. const n = 50;var A:Array[1..n, 1.. n] of integer;B:Array[1..n] of integer;m,i,j,sum, k, maxS, q:integer;beginwriteln('Введите размер матрицы m');readln(m);for i:= 1 to m dobeginfor j:= 1 to m dobeginA[i,j] := random(100)+1;write(A[i,j]:4);sum:= sum + A[i,j]end;B[i]:= sum;sum:=0;writeln;end;writeln('Сумма в строке ');for i:=1 to m dowriteln(i:2, B[i]:4);writeln('Матрица с убывающими строками');maxS := -1;for i:= 1 to m dobeginfor k:= 1 to m dobeginif B[k]> maxS then beginmaxS:= B[k]; q := k;end;end;B[q]:= 0; maxS := -1;for j:= 1 to m dobeginwrite(A[q,j]:4);end;writeln; end; end.
Если без циклов то program fifteen; begin writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); end.
Если циклы уже program fifteen; var i:integer; begin for i:=1 to 15 do writeln('Имя и фамилия'); end.
const n=5;
var a: array [1..n] of integer;
k,i: integer;
begin
k:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do if (a[i]=7) then k:=k+1;
writeln('количество: ',k);
end.