Uses crt; var c: array [1..10, 1..10] of integer; p,n,i,j: integer; find:boolean; begin clrscr; randomize; n:=10; P:=1; find:=false;{find - положительных элементов в матрице, кратных 5 нет} for i:=1 to n do begin for j:=1 to n do begin c[i,j]:=-5+random(11); if (c[i,j]>0) and (c[i,j] mod 5 =0) then begin p:=p*c[i,j];find:=true; end; write(c[i,j]:6); end; writeln; end; if find then writeln('произведение', p:7) else writeln('положительных элементов в матрице, кратных 5 нет') end.
var n,k:integer; s: string; begin writteln('введите n,k'); readln(n,k); str(n,s);{преобразуем число n в строку s} witeln(s[length(s)-k+1]); {length(s) -длина строки} end.
{2 задача} cons nmax=20; var a:array [1..nmax] of integer; min1,min2,i,k1,k2,N:integer; begin writeln('введите кол-во элементов массива'); readln(N); writeln('введите элементы массива'); for i:=1 to N do read(a[i]); min1:=a[1]; k1:=1; {k1 -индекс первого минимального элемента} for i:=2 to n do if min1>a[i] then begin min1:=a[i]; k1:=i end; {исключаем найденный минимальный элемент из массива- можно и по другому} for i:=k1+1 to N do a[i-1]:=a[i]; k1:=n-1; end; min2:=a[1]; k2:=1; {k1 -индекс первого минимального элемента} for i:=2 to n do if min2>a[i] then begin min2:=a[i]; k2:=i end; writeln(min1:5,min2:5) {если нужно было сохранить массив в начале программы надо ввести дополнительный массив }
var c: array [1..10, 1..10] of integer;
p,n,i,j: integer;
find:boolean;
begin
clrscr;
randomize;
n:=10; P:=1;
find:=false;{find - положительных элементов в матрице, кратных 5 нет}
for i:=1 to n do
begin
for j:=1 to n do
begin
c[i,j]:=-5+random(11);
if (c[i,j]>0) and (c[i,j] mod 5 =0) then
begin
p:=p*c[i,j];find:=true;
end;
write(c[i,j]:6);
end;
writeln;
end;
if find then
writeln('произведение', p:7)
else
writeln('положительных элементов в матрице, кратных 5 нет')
end.