Меню сайта

Задача №17
Дан массив —A -из 100 элементов, состоящий из нулей и 1.Заменить 1 – нулями и наоборот.
Program mas_17-
Uses Crt-
Var a : array[1..100] of byte-
i : byte-
begin
ClrScr-
Randomize-
for i:=1 to 100 do
begin
a[i]:=Random(2)-
Write(a[i])-
end-
Writeln-
for i:=1 to 100 do
begin
a[i]:=1-a[i]-
Write(a[i])-
end-
Readln-
End.
Категория: Массивы | Дата: 21.12.12

Меню раздела
Блок