КОментариии

program пп;
var
A:array [1..5,1..5] of integer;
i,j,max,m5,p5,p6:integer;
s:real;
Begin
 
 for i:=1 to 5 do
 begin
 For j:=1 to 5 do
 begin
 writeln ('введите элемент массива № ',i,',',j);
 readln (A[i,j]);
 end;
 end;
 
 
j:=1;
for i:=1 to 5 do
begin
 if a[i,j]<0 then
 p5:=p5+a[i,j]
 else
 p6:=p6+a[i,j];
j:=j+1;
end;
 
max:=a[1,1];
m5:=1;
for i:=1 to 5 do
 begin
 For j:=1 to 5 do
 begin
 if a[i,j]>max then begin
 max:=a[i,j];
 m5:=j;
 end;
 end;
 end;
 
 
s:=0;
if abs(p5)>=p6 then
begin
for i:=1 to 5 do
s:=s+a[i,i]*power(i,3);
end
else
begin
for i:=1 to 5 do
s:=s+a[i,m5]/p6;
end;
 
writeln ('ответ: ',s);
 
end.

program ппп;
var a,h,s,p:real;
 
function trangle(x,y:real):real;
var b,p:real;
begin
b:=sqrt(sqr(x/2)+sqr(y));
trangle:=b*2+a;
end;
label
m1;
Begin
m1:
writeln('введите длину стороны');
readln(a);
writeln('введите высоту');
readln(h);
if a>h then
begin
p:=trangle(a,h);
writeln(‘ответ: ’,p);
end
else
writeln ('вы ввели неверные данные, пожалуйсто, будте внимательней');
goto m1;
end.
 
 
 
program пп;
uses crt;
type t=record
     Fio:array[1..120] of string;
     Adr:array[1..120] of string;
     data:array[1..120] of string;
     nomer:array[1..120] of integer;
     end;
var
spisok:T;
k,l:string;
n:integer;
i,j:integer;
 
Begin
clrscr;
writeln ('введите кол-во покупателей');
readln (n);
for i:=1 to n do
    with spisok do
    begin
    for j:=1 to n do
    begin
    writeln ('введите имя');
    read (fio[j]);
    writeln ('Введите адрес');
    read (adr[j]);
    writeln ('введите дату');
    read (data[j]);
    writeln ('введите номер');
    read (nomer[j]);
    end;
 
    for i:=1 to n do
    begin
    k:=Adr[i];
    l:=fio[i];
    for j:=1 to n do
    begin
    if ((fio[j]=l) or (adr[j]=k)) and (i<>j) then
    begin
    fio[j]:='удалено!';
    adr[j]:='удалено!';
    data[j]:='';
    nomer[j]:=0;
    end;
    end;
    end;
 
     for j:=1 to n do
     begin
     if fio[j]<>'удалено!' then
     writeln (fio[j],' ',adr[j],' ',data[j],' ',nomer[j]);
     end;
     
    end;