Составить программу ввода и вывода массива - Turbo Pascal

Формулировка задачи:

Составить программу ввода и вывода массива: 5,-3,4,-8,-9,1,9,6,-3,4,8,2

Код к задаче: «Составить программу ввода и вывода массива - Turbo Pascal»

textual
const
  csize=12;
 
type
  tarray=array [1..csize] of integer;
 
var
  a:tarray;
 
procedure CreateArray;
var
  i:integer;
begin
  for i:=1 to csize do
    read(a[i]);
  writeln;
end;
 
procedure PrintArray;
var
  i:integer;
begin
  for i:=1 to csize do
    write(a[i],' ');
 
end;
 
begin
  writeln('Введите элементы массива : ');
  CreateArray;
  writeln('Массив : ');
  PrintArray;
  readln;
  readln;
end.

8   голосов, оценка 3.500 из 5


СОХРАНИТЬ ССЫЛКУ