Uses Crt;
Const
N = 15;
M = 10;
Var
A:array[1..N,1..M] of real;
i,j:integer;
S3,S7:real;
Begin
Randomize;
ClrScr;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random*13;
Write(A[i,j]:6:3,' ')
End;
WriteLn
End;
S3:=0;
S7:=0;
For j:= 1 to M do
Begin
S3:=S3+A[3,j];
S7:=S7+A[7,j];
End;
WriteLn('S3 = ',S3:0:3);
WriteLn('S7 = ',S7:0:3);
if S3 > S7 then WriteLn('S3 > S7')
else if S3 < S7 then WriteLn('S3 < S7')
else WriteLn('S3 = S7');
ReadLn
End.
<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var b:=new integer[n];
for var i:=0 to n-1 do
b[i]:=a[:i+1].Max;
b.Println
end.
<em>Пример</em>
n= 15
-21 27 -19 -7 34 -20 25 36 40 -2 40 43 -37 41 7
-21 27 27 27 34 34 34 36 40 40 40 43 43 43 43
Program Natasha1925_2;
uses crt;
const n=50;
var
a:array[1..n,1..n] of integer;
t:integer;
i,j,kwo:integer;
yes:boolean;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
randomize;
{создание массива}
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(101)-50;
write(a[i,j]:7:2);
end;
writeln();
end;
write('Введите число t: '); read(t);
{поиск строк}
kwo:=0;
for i:=1 to n do
begin
yes:=FALSE;
for j:=1 to n do
if a[i,j]=t then
yes:=TRUE;
if yes then kwo:=kwo+1;
end;
writeln('Количество строк: ',kwo);
end.
Pascal
var d, i, o, r:integer;
a:real;
begin
read(d);
r:=0;o:=0;
for i:=1 to d do
begin
read(a);
if a < 1.25 then r:=r+1;
if a > 3 then o:=o+1;
end;
writeln('rad - ', o);
writeln('ras - ', r);
end.