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.
мда. подумать над задачкой пришлось немного) но вот результат)
у тебя какие числа? в какой системе счисления?
у тебя первое число 25,35?
program raf105;
var
km,fut: real;
begin
write('Введите расстояние в километрах: ');
readln(km);
write('Введите расстояние в футах: ');
readln(fut);
write('Большее: ');
if km > fut * 0.00045 then writeln(km,' км.')
else writeln(fut,' фут.');
end.
<h3>PascalABC</h3>
Зеленый свет, пошел, посмотрелна лево, дошел до середины, посмотрел на право,