Program mas; var a: array[1..100] of integer; i, n: integer; begin randomize; writeln('введите размерность массива',n); readln(n); for i: =1 to n do a[i]: =random(45)-1; readln; for i: =1 to n do begin if a[i]> 15 then write(' ',a[i]); end; readln; end.
Спасибо
Ответ дал: Гость
var
i: integer;
a: array[1..20] of integer;
function fn(x: integer): integer;
begin
if x mod 10 = 4 then fn: =x div 2
else fn: =x;
end;
begin
for i: =1 to 20 do
readln(a[i]);
for i: =1 to 20 do
begin
a[i]: =fn(a[i]);
writeln(a[i]);
end;
end.
Ответ дал: Гость
var
a,b: integer;
begin
write('введите в одной строке два целых числа и нажмите < enter> ');
Популярные вопросы