Решить кроссворд по информатике 1)программа против вирусов (9букв)2)один из путей распространения вирусов(8букв)3)процесс - id941346420211010 от syrok20031812 10.10.2021 04:35

Question

Информатика: Решить кроссворд по информатике 1)программа против вирусов (9букв)2)один из путей распространения вирусов(8букв)3)процесс по сжатию объёма информации(9букв)4)устройство для ввода информации (цифровой,символьной)в компьютер (10букв)5) центральное устройство,в функции которого входит обработка данных по заданной программе путём выполнения арифмических и логических операций и программное работой устройств компьютера ( : -) :

syrok20031812 · Accepted Answer

Const n=20;
type omas=array[1..n] of integer;
Procedure Del (var z:omas; k:byte);
var i:byte;
begin
for i:=k to n-1 do z[i]:=z[i+1];
z[n]:=0;
end;
var a:omas; i,b:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
b:=6;
i:=1;
while (i<=n)and(a[i]<>b) do i:=i+1;
if i<=n then
begin
Del(a,i);
writeln('Размерность массива = ',n-1);
for i:=1 to n-1 do write(a[i]:4);
writeln;
end else writeln('Массив не изменился');
end.
Пример:
12 13 6 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18
Размерность массива = 19
12 13 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18

MOGZ ответил