var a,b,i,j,p,o: integer;
z:real;
m:array[0..31,0..31] of integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
begin
z:=random;
b:=random(31);
if z<0.5 then m[i,j]:=b;
if z>0.5 then m[i,j]:=-b;
end;
for i:=1 to 5 do
for j:=1 to 5 do
begin
if m[i,j]>0 then p:=p+m[i,j];
if m[i,j]<0 then o:=o+m[i,j];
end;
write(p,' ',o);
end.
мда. подумать над задачкой пришлось немного) но вот результат)
А)Дискета , потому что на неё нельзя ничего записать
Системний блок (материнська плата, блок живлення, носії інформації, плати розширення), базові пристрої вводу (клавіатура, миша), базові пристрої виводу (монітор).
Program zz;var a,b,s,p,z,y:integer;beginwriteln('Длина пола:');readln(a);writeln('Ширина пола:');readln(b);s:=a*b;writeln('Площадь пола:',s);p:=2*(a+b);writeln('Периметр пола:',p);z:=s*300;writeln('Цена линолеума:',z,'рублей');y:=20*p;writeln('Цена плинтуса:',y,'рублей');end.