Голосование за лучший ответ
Никита Шишлов
Мастер
(1020)
1 месяц назад
Program p1;
Var c:Array [1..6] of real;
i:integer;
Begin
// Инициализация массива с нулевыми значениями
for i := 1 to 6 do c[i] := 0.0;
For i:= 1 to 6 do readln(c[i]);
For i:= 1 to 6 do write (c[i]:0:2);
End.
Дима Идимадов
Ученик
(241)
1 месяц назад
Program p1;
Var
c: Array [1..6] of Real;
i: Integer;
Begin
// Запрашиваем ввод значений
WriteLn('Введите 6 разрядных чисел:');
For i := 1 to 6 do
ReadLn(c[i]);
// Вывод значений
WriteLn('Введённые числа:');
For i := 1 to 6 do
Write(c[i]:0:2, ' '); // добавил пробел между числами
WriteLn; // переход на новую строку в конце
End.
Gennady
Гений
(60628)
1 месяц назад
Ошибка 106 означает "неправильный числовой формат". Вы что используете для разделения целой и дробной части, не запятую, случайно? Попробуйте точку и обретете счастье.
Var c:Array [1..6] of real;
i:integer;
Begin
For i:= 1 to 6 do readln(c[i]);
For i:= 1 to 6 do write (c[i]:0:2);
End.
Runtime error 106 at $00000000004010CB
$00000000004010CB
$000000000040104F
Я если что, ну совсем в программировании чайник