Помогите сделать эту программу без рандома ...

var a:array[1 ... 10] of integer;

i, n:integer;

begin

randomize;

write ('Введите количество элементов массива n=') ; readln (n) ;

for i:=1 to 10 do begin

a[i]:=random (100) - 40; write (a[i],' ') ; end;

writeln ('Новый массив: ') ;

for i:=1 to 10 do

if a[i] mod 2 = 0 then a[i]:=sqr (a[i]) ;

for i:=1 to 10 do

write (a[i],' ') ;;

end.

Question

Информатика

Ритуся

29 мая, 18:06

Помогите сделать эту программу без рандома ...

var a:array[1 ... 10] of integer;

i, n:integer;

begin

randomize;

write ('Введите количество элементов массива n=') ; readln (n) ;

for i:=1 to 10 do begin

a[i]:=random (100) - 40; write (a[i],' ') ; end;

writeln ('Новый массив: ') ;

for i:=1 to 10 do

if a[i] mod 2 = 0 then a[i]:=sqr (a[i]) ;

for i:=1 to 10 do

write (a[i],' ') ;;

end.

+2

Ответы (1)

Знаете ответ на вопрос?

Яна · Answer 1

Если я правильно понял то тебе нужно ввод с клавиатуры

var a:array[1 ... 10] of integer; i, n:integer;

begin

write ('Введите количество элементов массива n=') ;

readln (n) ;

for i:=1 to 10 do begin

readln (a[i]) ;

writeln ('Новый массив: ') ;

for i:=1 to 10 do

if a[i] mod 2 = 0 then

a[i]:=sqr (a[i]) ;

for i:=1 to 10 do

write (a[i],' ') ;

end.