Пожалуйста решите информатику 9 класс очень надо20баллов Одномерный массив с четырьмя операторами lf Задан фрагмент программы : program var 03;{задание 20_2} Var A:array[1...12] of integer; ...

Вам нужно узнать решение и ответ на вопрос Пожалуйста решите информатику 9 класс очень надо20баллов Одномерный массив с четырьмя операторами lf Задан фрагмент программы : program var 03;{задание 20_2} Var A:array[1...12] of integer; ... и правильно выполнить домашнюю работу по предмету Информатика? Готовое решение смотрите далее.

Пожалуйста решите информатику 9 класс очень надо20баллов
Одномерный массив с четырьмя операторами lf
Задан фрагмент программы :
program var 03;{задание 20_2}
Var A:array[1...12] of integer;
I s1 s2 s3 s4:integer;
Begin
A [1]:=25;A[2]:=18;A[3]:=9;A[4]:=16;
A[5]:=13;A[6]:=20;A[7]:=15;A[8]:=24;
A[9]:=23;A[10]:=13;A[11]:=40;A[12]:=23;
for I:=1to12do
S2:=100;
Begin
IfA[i]mod2=0 then S1:=S1+A[i];
If(A[i]mod 5=0) and (A[i] S2:=A[i];
IfA[i]mod5=0thenS3:=S3+1;
If(A[i]mod10=3)then S4:=S4+A[i];
End;
Write(S1;";S2;";S3;";S4)
End

В тексте программы приличное количество синтаксических и логических ошибок. Программа просто работать не будет. Начиная с первой строки - название программы на языке паскаль не может начинаться с цифры. Пропущены запятые и точки. Неправильно расставлены операторные скобки (begin ..end). Приведите в порядок код программы, тогда буде иметь смысл повозиться с ней.

Подобные ответы

Каким образом определяются размеры листа бумаги документа? Что такое маркер списка?
Каким образом определяются размеры листа бумаги документа? Что такое маркер
помогите пожалуйста,очень нужно
помогите пожалуйста,очень нужно
Для хранения растрового изображения размером 459×459 пикселей отвели 4 КБ памяти. Каково максимально возможное число цветов в палитре изображения?
Для хранения растрового изображения размером 459459 пикселей отвели 4 КБ памяти. Каково максимально