Составить программу заполнения одномерного массива, так чтобы его i-ый элемент был равен a[i]=i*i+10 паскаль
168
188
Ответы на вопрос:
// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrgen(readinteger('n='),i-> i*i+10); a.println end. пример n= 13 10 11 14 19 26 35 46 59 74 91 110 131 154
Program zap; var a: array [1..10000] of integer; i,n: integer; begin writeln('введите количество элементов '); readln(n); for i: =1 to n do begin a[i]: =i*i+10; writeln(a[i]) end; end.
Неправильно написан цикл
Объяснение:
синтаксис объявления таков
for i := 1 to n do
// код вашей программы
от 1 до n делаем такой-то код
В вашем случае for a:=5 begin не указан сколько раз выполнить цикл
если пять раз то for a:=1 to 5 do begin
// код
end;
Популярно: Информатика
-
Apostol137808.05.2021 09:23
-
cernyshova08.10.2021 19:44
-
Казань56521.01.2022 14:12
-
незнайка116210.01.2022 08:41
-
uma090804.01.2022 01:24
-
crasheftf19.03.2023 19:00
-
povitnitskiy10.04.2023 05:09
-
Tooopo110.01.2023 17:04
-
klimantovich7210.11.2020 15:40
-
поать27.05.2021 08:39