Перейти к выбору ответа 04.05.2022бирликтери 3-ке кобейткенде 7*3=21 тендиги колданылатын еки танбалы сандар жаз Выбрать другой вопрос Смотреть ответ Перейти к выбору ответа Математика Ответ учителя по предмету Математика Жауабы керек пе али?
Похожие вопросы от пользователей
var
A: Array [1..100] of integer;
size: integer;
Even: integer;
notEven: integer;
begin
Write(‘Set size A :’);
Read(size);
for i:integer := 1 to size do begin
Write(‘Set A[‘, i, ‘]: ‘);
Read(A[i]);
end;
for i:integer := 1 to size do begin
if (A[i] mod 2 <> 0) then begin
notEven += A[i];
end
else begin
Even += A[i];
end;
end;
Write(‘Sum even numbers = ‘, Even);
Writeln;
Write(‘Sum notEven numbers = ‘, notEven);
end.