Программист торопился и допустил ошибки. Исправьте их
Tixaia
3
27.04.2020 20:45
1
Другие вопросы по теме Информатика
Zauchka17
12.12.2020 14:51
1337banana228
18.07.2019 20:10
Щплкуовощлл
18.07.2019 20:10
MaliaCr
12.04.2021 11:52
Сок325
16.11.2020 12:11
Anya3456890
16.11.2020 12:11
MCЯнуля
16.11.2020 12:11
8Евген8
11.09.2019 16:30
vvbybrjnbr
29.05.2019 05:10
Популярные вопросы
- решите кто-нибудь. теоретическая механика статика. идет дистанционная...
2 - Необходимо провести таутомерию в растворе написанного восстанавливающего...
1 - ))) Какое тело из перечисленных ниже оставляет видимую траекторию?...
1 - ЗАДАНИЕ: Укажите верное написание выделенного слова (выделенных слов)...
3 - А BC=7см; СD =10см; BD=8 см Б) KM=3дм 7 см; MN=7дм 3см Определите...
3 - Составьте схему электронного баланса и подберите коэффициенты в уравнении...
2 - Мастер и Маргаритаразвёрнутый ответ на вопрос Какая демоническая...
2 - До ть знайти значення довжини трубопроводу....
2 - Решите задачу по геометрии. Найдите площадь полной поверхности тела,...
3 - Найдите tga если cosa=1 делить на корень из 10 и a принадлежит(1.5pi;2pi)...
3
Program n6_250;
Const n=10;
var a: array [1..n] of integer;
s, i: Integer;
begin
s:=0;
for i:=1 to n do
begin
readln(a[i]);
if i>a[i] then s:=s+a[i];
end;
write (s);
end.