Предмет: Информатика,
автор: artyom62
Сформируйте одномерный массив из 3 элементов (значения элементов укажет пользователь с клавиатуры). Выведите значения одномерного массива в столбец
Ответы
Автор ответа:
0
Program Massiv;
Var a: Array [1..3] of Integer;
i: Integer;
Begin
WriteLn('Напишите 3 числа через пробел');
For i := 1 To 3 DoRead(a[i]);
For i := 1 To 3 DoWriteLn(a[i]);
ReadLn;
End.
Var a: Array [1..3] of Integer;
i: Integer;
Begin
WriteLn('Напишите 3 числа через пробел');
For i := 1 To 3 DoRead(a[i]);
For i := 1 To 3 DoWriteLn(a[i]);
ReadLn;
End.
Похожие вопросы
Предмет: Геометрия,
автор: AleksandrOksenchuk
Предмет: Математика,
автор: mmmyep293737
Предмет: История,
автор: otttop2
Предмет: Математика,
автор: vika200234
Предмет: Химия,
автор: athar