Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ответ:
все числа меньше 59 или равное числу 59
Объяснение:
оператор просит от программы числа из массива которые меньше числа 59 или равное числу 59
var
i: integer;
a: array[1..16]of integer;
begin
for i: =1 to 16 do
a[i]: =random(40)-20;
if a[i] mod 3=0 then write(i,' ');
end;
writeln;
end.
program m;
uses crt;
var a,b,c,sum: integer;
clrscr;
readln(a,b,c);
sum: =a+b+c;
writeln(' ',sum);
readkey;
Популярные вопросы