ответ: Turbo Pascal
program Turbo;
uses Crt;
var
i: integer;
a: array[1..7] of integer;
begin
ClrScr;
write('Введи 7 чисел: ');
for i := 1 to 7 do
read(a[i]);
write(a[i], ' ');
ReadKey;
end.
Объяснение:
ответ: Turbo Pascal
program Turbo;
uses Crt;
var
i: integer;
a: array[1..7] of integer;
begin
ClrScr;
write('Введи 7 чисел: ');
for i := 1 to 7 do
read(a[i]);
for i := 1 to 7 do
write(a[i], ' ');
ReadKey;
end.
Объяснение: