Составить программу на Паскале. Имеется целочисленный массив, состоящий из 10 элем-тов. А) Найти сумму первых 5 элементов; Б) Найти сумму чётных элементов стоящих на чётных позициях.
130
ОТВЕТЫ
В цикле от 1 до 10 вводим i-тый элемент массива. Сразу в этом же цикле проверяем два условия:
1) если i lt; 6 то прибавляем этот элемент к сумме1
2) если i чётное и элемент чётный прибавляем его к сумме2.
С телефона не выделяются абзацы, поэтому сори за вид.
Program zzz; Var s1, s2: integer; x: boolean;Var i: byte; Var M: array[1..10] of integer; Begin s1:=0; s2:=0; For i:=1 to 10 do begin Writeln (введите ,i,-е число массива); Readln (M[i]); If ilt;=5 then s1:=s1+M[i]; if ((i mod 2)=0) and ((M[i] mod 2)=0)Then s2:=s2+M[i]; End; Writeln (Сумма первых 5 элементов = ,s1);Writeln (Сумма чётных элементов стоящих на чётных позициях = ,s2);End.
Program zzz; Var s1, s2: integer; x: boolean;Var i: byte; Var M: array[1..10] of integer; Begin s1:=0; s2:=0; For i:=1 to 10 do begin Writeln (введите ,i,-е число массива); Readln (M[i]); If ilt;=5 then s1:=s1+M[i]; if ((i mod 2)=0) and ((M[i] mod 2)=0)Then s2:=s2+M[i]; End; Writeln (Сумма первых 5 элементов = ,s1);Writeln (Сумма чётных элементов стоящих на чётных позициях = ,s2);End.
22
Отв. дан
Moghma
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Биология
Федор
Скласти 3-5 красивих речень про Т.Г Шевченка ...
2018-09-23 00:00:00
Лилия
ОЧЕНЬ СРОЧНО !!!!!!!!!!!!!!!!!!!!! ДАЮ 70 БАЛЛОВ 1)Match the words ...
2018-09-23 00:00:00
Marirne
Какие слова нельзя разделить для переноса . змея, тетрадь ...
2018-09-23 00:00:00
Cekus
Срочно СОС! ПОМОГИТЕ! Вкладчик за свой депозит в банке ...
2018-09-23 00:00:00