Решите задачу в системе Паскаль сформировать массив и напечатать одномерной массой в состоящий из 10 чисел элементы вводятся с клавтатуры числа целые
Answers & Comments
andreylozhkin
Var massiv: array[1..10] of integer;var chislo,i: integer;begin writeln('Введите 10 чисел с клавиатуры'); for i:=1 to 10 do begin read(chislo); massiv[i] := chislo; end; for i:=1 to 10 do write(massiv[i],' ')end.
Answers & Comments