Monn
5 год назад
Пожалуйста посчитайте пожалуйста. Буду очень благодарен. Заранее спасибо.
ОТВЕТЫ
Мира
Oct 24, 2020
Держи:
var
E: array [1..17] of real;
s: integer;
begin
for s := 1 to 17 do
begin
writeln('Введите число');read(E[s]);
end;
for s := 1 to 12 do
writeln(E[s]);
end.
var
E: array [1..17] of real;
s: integer;
begin
for s := 1 to 17 do
begin
writeln('Введите число');read(E[s]);
end;
for s := 1 to 12 do
writeln(E[s]);
end.
135
Смежные вопросы:
