Нужно защищать компьютер от вирусов потому что бы в компьютер не заразить вирусом и не испортить его! Потому что удалить вирус ты сам удалить не сможешь!
Const amax=20; var a: array[1..amax,1..amax] of integer; i,j,k,n,m: byte; begin write('Введите размеры массива(матрицы (<20)):'); readln(n,m); writeln('Массив(матрица):'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(99)+1; write(a[i,j]:4); end; writeln; end; writeln('Кол-во четных элементов по колонкам:'); for j:=1 to m do begin k:=0; for i:=1 to n do if odd(a[i,j])=false then inc(k); writeln('В ',j,' столбце ',k); end; writeln('Конец программы!'); end.
Const n=10; var a: array[1..n] of integer; p,k: integer; i: byte; begin randomize; p:=1; k:=0; for i:=1 to n do begin a[i]:=random(21); if (a[i]>0) and (a[i] mod 6 =0) then begin p:=p*a[i]; k:=k+1; end; end; println (a); if k>1 then writeln ('Произведение элементов, кратных 6, = ',p) else if k=1 then writeln ('Найден всего 1 элемент, кратный 6, - ',p) else writeln ('Нет элементов, кратных 6') end.
