Var ma:array[1..n,1..n] of integer; min,mini,minj,i,j:integer; begin min:=2147483647; randomize; writeln('Matrix:'); for i:=1 to n do begin; writeln; for j:=1 to n do begin; ma[i,j]:=random(300); write(ma[i,j]:4); if min>ma[i,j] then begin; min:=ma[i,j]; mini:=i; minj:=j; end; end; end; writeln; write('Строка:',mini,' столбец:',minj); end.
Var InFile, OutFile: text; // Вводной и выводной файлы Var a,b,c, D, Result : Integer; Assign(InFile, "C:\kvur.txt"); Assign(OutFile, "C:\korni.txt") Reset(InFile) Read(InFile,a) Read(InFile,b) Read(InFile, c) D = sqr(b) + 4*a*c if D = 0 then Write("Уравнение не имеет корней") Else Append(OutFile) Result:=(-b + sqrt(D)) / 2 * a Write(OutFile,Result) Write("Корень уравнения") WriteLn(Result) if (D>0) then Result:=(-b - sqrt(D)) / 2 * a Write(OutFile, Result) Write("Второй корень уравнения") Write(Result) End; End.
import random chuslo = [random.randint(0,500) for x in range(1000)] five = [] for i in chuslo: if i %5==0: five.append(i) five.sort() five.reverse() print(five)
Const
n=10;
Var
ma:array[1..n,1..n] of integer;
min,mini,minj,i,j:integer;
begin
min:=2147483647;
randomize;
writeln('Matrix:');
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
ma[i,j]:=random(300);
write(ma[i,j]:4);
if min>ma[i,j] then
begin;
min:=ma[i,j];
mini:=i;
minj:=j;
end;
end;
end;
writeln;
write('Строка:',mini,' столбец:',minj);
end.