String str ="текст стихотворения";
cout << str;
Ip <span>93.120.218.52
максимальное кол-во компьютеров в сети 155</span>
Var a:array[1..8] of integer;i:integer;beginrandomize;for i:=1 to 8 do begin a[i]:=random(20-10) + 10; write(a[i],' '); end; writeln;for i:=1 to 8 do begin if (a[i] < 15 ) then a[i]:=2*a[i]; write(a[i],' '); end;
<span>end.</span>
Предполагается, что будет введено минимум одно значение.
varmax,a : integer;beginreadln(a);max := a;repeatreadln(a);if (a > max) and (a <> 0) thenmax := a;until a = 0;writeln(max);readln;end.
P.S. Если понравилось решение не забудь отметить как лучшше. ;)
Подробнее - на Znanija.com -
znanija.com/task/1506362#readmore
var
a:array [1..20] of integer;
s,i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(101)+100;
write (a[i],' ');
end;
writeln;
s:=0;
for i:=1 to 20 do
if odd(a[i])=false then s:=s+a[i];
writeln (s);
readln;
end.