Program Lab4;ТЕГИ!
Uses Crt;
const size = 50; {размер массива}
Var
c : array [0..size] of integer; {массив}
k, i : integer; {индекс}
begin
clrscr;
writeln ('Ввод массива целлых чисел');
writeln ('Работа с одномерным массивом');
{Заполнение массива числами}
for i := 1 to size do
begin
write ('c[', i, '] => ' : 2);
readln (c[i]);
if c[i] < 0 then break;
end;
writeln;
{Вывод массива в три строки }
k := (size div 3) + byte ((size mod 3) > 0);
for i := 1 to size do
begin
write (c[i] : 3);
if c[i] < 0 then break;
if (i mod k) = 0 then writeln;
end;
readln;
end.
массив, помогите |