Const n=10; m=7; var j,i,i_max,s,max:integer; a:array[1..n,1..m]of integer; begin for i:=1 to n do begin writeln; s:=0;i_max:=i;max:=-32768; for j:=1 to m do begin a[i,j]:=random(100)-50; write(a[i,j]:4); s:=s+a[i,j]; end; writeln('i: ',i,' ',s); if s>max then begin i_max:=i; max:=s; end; end; writeln; writeln(i_max,' s: ',max); end.
//Pascal var x,y:real; begin readln(x,y); if (x>0) and (y>0) then writeln('I четверть'); if (x<0) and (y>0) then writeln('II четверть'); if (x<0) and (y<0) then writeln('III четверть'); if (x>0) and (y<0) then writeln('VI четверть'); end;
Задача №2
//Pascal var a:integer; begin readln(a); if a mod 2 =0 then writeln(' Четное') else writeln(' Нечетное'); if a mod 10 =7 then writeln(' оканчивается на 7') else writeln(' не оканчивается на 7 '); if a mod 5 =0 then writeln(' делится на 5 ') else writeln(' не делится на 5');
n=10; m=7;
var
j,i,i_max,s,max:integer;
a:array[1..n,1..m]of integer;
begin
for i:=1 to n do
begin
writeln; s:=0;i_max:=i;max:=-32768;
for j:=1 to m do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:4);
s:=s+a[i,j];
end;
writeln('i: ',i,' ',s);
if s>max then
begin
i_max:=i;
max:=s;
end;
end;
writeln;
writeln(i_max,' s: ',max);
end.