Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program dl9_alina73; var a: array [1..3,1..3] of real;
b: array [1..3,1..3] of real;
c: array [1..3,1..3] of real;
i,q: integer;
begin
randomize; for i: =1 to 3 do begin
for q: =1 to 3 do begin
a[i,q]: =random(10)
end end;
for i: =1 to 3 do begin
b[i,q]: =random(5);
writeln;
c[i,q]: =a[i,q]*b[i,q];
write (c[i,q])
readln
end.
сперва нужно набрать 3-х литровый кувшин,затем залить 1\2 часть 8-ми литрового кувшина, и в итоге наберется 7 литров воды из реки.
var n,i: integer;
result,thebest: real;
thebest: =1;
writeln('введите количество спортсменов');
readln(n);
for i: =1 to n do begin
writeln('введите результат ',i,' спортсмена');
readln(result);
if result> thebest then thebest: =result;
writeln('лучший результат: ',thebest);
end;
подними руку
опусти руку
открой глаза
закрой глаза
скажи «мяу»
Популярные вопросы