Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
a: array [1..20] of integer;
i,max: integer;
begin
max: =0;
for i: =1 to 20 do
if i mod 2=0 then a[i]: =random(50)+50
else a[i]: =random(50)+150;
if a[i]> max then max: =a[i];
write(a[i]: 4);
end;
writeln;
writeln('max=',max);
end.
трактор
ель
корова
слон
тигр
если не трудно отметь моё решение лучшим.
(если не знаешь,это и тебе даёт +4пкт.)
a,b: integer;
readln(a,b);
while a< > b do
if a> b then a: =a-b;
if a< b then b: =b-a;
writeln(a);
readln;
var s: real;
i,n: integer;
s: =0;
n: =0;
for i: =250 to 500 do begin
if (i mod 5=0) and (i mod 7=0) then begin s: =s+i; n: =n+1;
s: =s/n;
writeln(s);
Популярные вопросы