Написать программу обработки массива из 100 элементов - замена четных элементов на 0, нечетных элементов на 1
лоартем1
1
07.04.2019 16:00
2
Другие вопросы по теме Информатика
alexandrafortun
25.11.2021 09:27
скрытник
16.04.2020 17:26
kogoch
25.11.2021 05:44
demondru
25.11.2021 05:44
anast1sava
25.11.2021 05:45
leshakonovalov2
25.11.2021 05:45
Дмитртй11
25.11.2021 05:45
dashvali
05.08.2019 07:30
Популярные вопросы
- Change the phrase in italics to a phrase using have got...
3 - Какие черты характера В.А. Гиляровского отмечает К. Паустов- ский?...
3 - Какой объем займут в нормальных условиях 0,5 моль хлороводорода...
3 - Какие народы издревле населяют Среднюю Азию?...
2 - На смещение химического равновесия реакции 2SO, + 0, е 2SO4 + 0в...
1 - Кути ромба можуть дорівнювати 45° і 145°; 70° і 110°; 130° і 40°;...
1 - В течение первого месяца цена товара увеличилась на 15%, а в течение...
1 - Оберіть чотири твердження, які ви вважаєте правильними:1.у середині...
1 - РАССМОТРЕТЬ КАК ДУБРОСКИЙ И ТРОИТСКИЙ ОТНОСИЛИСЬ КО СВОИМ СЛУГАМ....
1 - Среди химиков каждый шестой - биолог, а среди биологов каждый третий...
2
Var i:Integer;
A:array[1..100]of integer;
Begin
For i:=1 to 100 do begin
A[i]:=random(10);
Write(' ', a[i]) ;end;
Writeln;
For i:=1 to 100 do begin
If a[i] mod 2 =0 then a[i]:=0 Else a[i]:=1;
Write(' ', a[i]) ;
End;
End.