var a: array [1...n] of integer;
j, k, max: integer:
begin
for j:=1 to n do
readln(a[j]);
sum:=0
For j:=1 to n do
if a[j]mod=0 then sum:=sum*a[j]
Writeln(sum);
end.
Ответ:
1. Ответ a)верно b)верно c)неверно d)верно e)верно
Объяснение: 1)ScanDisk-программа для исправления ошибок структур жестких дисков
2)Вследствие засорения реестра путем появления неверных записей, неочищенный кэш и мусор от прошлых установленных программ
3)Disk Cleanup-программа для очистки компьютера от всевозможного мусора, неиспользуемых системных файлов и следов работы в браузерах
4)Обычно программа перестаёт отвечать на действия пользователя, а курсор превращается в песочные часики. В этом случае в заголовке программы в скобках может быть написано «(Не отвечает)». Все попытки закрыть программу на «крестик» ничего не дают, либо крестик нажать не удаётся
5) Открыть диспетчер задач и во вкладке процессы снять задачу
Любая ЭВМ обрабатывает информацию в машинном коде(двоичном)
Правильный ответ 7. Алгоритм считает сколько исполнителей набрали меньше 25 голосов. Это 1-й,2-й,3-й,5-й,6-й,8-й,9-й всего таких - 7
Program obnulenie;
var a:array[1..100,1..100] of integer;
i,j,n:integer;
begin
writeln('Введите размер квадратной матрицы:');
readln(n);
writeln('Введите матрицу:');
for i:=1 to n do
for j:=1 to n do
begin
read(a[i,j]);
if j>i then a[i,j]:=0;
end;
writeln('Измененная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
<span>end.</span>