язык программирования: паскальvara, b, c, min : integer; beginreadln (a); readln (b); readln (c); min : = a; if b < min thenmin : = b; if c < min thenmin : = c; writeln (min); end.
Ответ дал: Гость
var
i: integer;
a: array[1..16]of integer;
begin
for i: =1 to 16 do
begin
a[i]: =random(40)-20;
if a[i] mod 3=0 then write(i,' ');
end;
writeln;
end.
Ответ дал: Гость
uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.
Популярные вопросы