Вопрос по информатике:
Переведите программу в Free Pascal
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.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.02.2017 15:32
- Информатика
- remove_red_eye 19289
- thumb_up 9
Ответы и объяснения 2
varA: Array [1..100] of integer;size,Even,notEven,i: integer;
beginWrite('Set size A :');Read(size);
for i := 1 to size do beginWrite('Set A[', i, ']: ');Read(A[i]);end;
for i := 1 to size do beginif (A[i] mod 2 0) then beginnotEven += A[i];endelse beginEven += A[i];end;end;
Write('Sum even numbers = ', Even);Writeln;Write('Sum notEven numbers = ', notEven);end.
- 27.02.2017 00:58
- thumb_up 24
A: Array [1..100] of integer;
size: integer;
Even: integer;
notEven: integer;
i:integer;
begin
Write('Set size A :');
Read(size);
for i:= 1 to size do begin
Write('Set A[', i, ']: ');
Read(A[i]);
end;
for i:= 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.
- 28.02.2017 15:00
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.