1) Напишите программу в Паскале
Заполнить массив случайными целыми числами. Заменить элементы массива, кратные K нулями, остальные 1 ( К ввести с клавиатуры)
Нет комментариев
Ответы
Гость
var
mas: array[-1000..1000] of integer;
i, k, n: integer;
begin
{ввод количества элементов массива}
readln(n);
{ввод числа к}
readln(k);
{ввод массива и его вывод на экран}
randomize;
for i := 1 to n do
begin
mas[i] := 50 - random(100) - 1;
write(mas[i]:4);
if (i mod 10 = 0) then writeln;
end;
{замена элементов массива}
writeln;
for i:=1 to n do begin
if (mas[i] mod k=0) then mas[i]:=0
else
mas[i]:=1;
write (mas[i]:4);
if (i mod 10 = 0) then writeln;
end;
end.
Нет комментариев
Похожие вопросы
Информатика
Информационное сообщение объемом 1.5 Кбайт содержит 3072 символа.Определить мощность алфавита....
Информатика
Как например?как заполнить таблицу?...
Список предметов
