program HelloWorld;
var n:array [1..15] of integer;
var c: integer;
var z,i: SmallInt;
begin
for i:=1 to 15 do
n[i] := random(1000);
repeat
z:=0;
//сортировка
for i:=1 to 15 do
if n[i]> n[i+1] then
begin
c:=n[i];
n[i]:=n[i+1];
n[i+1]:=c;
z:=1;
end;
until z=0;
for i:=1 to 15 do
writeln(n[i])
end.
2.
program HelloWorld;
var n:array [1..10,1..7] of integer;
var c: integer;
var z,i: SmallInt;
begin
for i:=1 to 10 do
for z:=1 to 7 do
n[i,z] := random(1000);
for i:=1 to 10 do
for z:=1 to 7 do
begin
write('A[',i,',',z,']=');
writeln(n[i,z]);
end;
for i:=1 to 10 do
for z:=1 to 7 do
begin
if i = 5 then
begin
c := n[5,z];
n[5,z] := n[7,z];
n[7,z] := c;
end;
end;
writeln('');
for i:=1 to 10 do
for z:=1 to 7 do
begin
write('A[',i,',',z,']=');
writeln(n[i,z]);
end;
end.
Uses crt;
var a,i:byte;
s:real;
begin
clrscr;
for i:=1 to 4 do
begin writeln('vvod');
readln(a);
if a mod 5=0 then
writeln('Число ',a,' кратно 5 ')
else
writeln('Число ',a,' не кратно 5')
end; end.
2) Программа на нахождение площади
uses crt;
var a,b,s:real;
begin clrscr;
write('Сторона 1:');
readln(a);
write('Сторона 2:');
readln(b);
s:=a*b;
writeln('Площадь=',s:10:3);
end.