var a:array[1..4,1..3] of real; i,j,k:integer; begin for i:=1 to 4 do begin for j:=1 to 3 do begin a[i,j]:=random(101)-50; write(a[i,j]:3); end; writeln; end; for j:=1 to 3 do if a[2,j] > 0 then k:=k + 1; writeln; writeln(k); end.
#2
var a:array[1..5,1..5] of real; i,j:integer; begin for i:=1 to 5 do begin for j:=1 to 5 do begin a[i,j]:=sin(i) + cos(j); write(a[i,j]:3:2, ' '); end; writeln; end; end.
#3
var a:array[1..3,1..3] of integer; i,j,min:integer; begin for i:=1 to 3 do begin for j:=1 to 3 do begin a[i,j]:=random(101) - 50; write(a[i,j]:4); end; writeln; end; min:=a[1,1]; for i:=1 to 3 do for j:=1 to 3 do if a[i,j] < min then min:=a[i,j]; writeln; writeln(min); end.
#4
var a:array[1..4,1..4] of real; i,j,k:integer; begin for i:=1 to 4 do begin for j:=1 to 4 do begin if i>j then a[i,j]:=ln(j) - 1 else a[i,j]:=abs(j - 3*i); write(a[i,j]:3:2, ' '); end; writeln; end; for i:=1 to 4 do for j:=1 to 4 do if a[i,j] < 0 then k:=k + 1; writeln; writeln(k); end. </span>
Program summa; var a,b,s,y,d:integer; n: real; begin writeln('Введите любых числа'); readln(a,b); S:=a+b; Y:=a-b; N:=a/b; D:=a*b; writeln('сумма=',S); writeln('разность=',y); writeln('деление=',N); writeln('произведение=',D); end.
! Можешь сделать так! 1) Кто я такой, о себе. 2) Чем занимаешься, любимые хобби и занятия 3) Любимое блюдо, друг, время нода и т.п. Почему? 4) Как ты себя оцениваешь, любишь ьи ты себя (ответь это от себя)
Program run; var T1, T2, T3, min:integer; begin write('Введите время Ferrari : ');readln(T1); write('Введите время Toyota : ');readln(T2); write('Введите время Ford : ');readln(T3); if(T1>T2) then min:=T2 else min:=T1; if(T3>min) then begin if(min=T1) then writeln('Самой быстрой была Ferrari.') else writeln('Самой быстрой была Toyota'); end else writeln('Самой быстрой машиной был Ford.'); end.