1. введите с клавиатуры массив вещественных чисел, размерностью n. вычислить в массиве сумму и количество нечетных элементов, кратных 10 или определить, что их нет. 2. задан массив случайных чисел из диапазона [-1..11]. определить, сколько элементов массива равны своему порядковому номеру в массиве
или выдать сообщение, что таких элементов нет.

Вирус. Вполне возможно, что ваш компьютер заражен вирусом, ведь это одно из частых объяснений почти всех проблем. Но как он мог оказаться на моем компьютере, если есть антивирус? А давно ли вы обновляли его базы? Может быть, они уже потеряли актуальность.

Программы, пожирающие трафик. Компьютер после подключения к интернету может начать тормозить потому, что множество программ начинают качать обновления. Происходит это довольно часто, а одновременная нагрузка сказывается на производительности.

Обновление драйверов. Бывали и такие случаи, когда «тормоза» после подключения появлялись из-за автоматического обновления драйверов, которые были несовместимы и конфликтовали друг с другом.

Проблемы с ОС. После заражения системы, внесения различных изменений и прочих действий, вполне возможно, что у вас появились проблемы с операционной системой. Даже ошибки в одном системном файле могут стать причиной медленной работы.

Если у вас тормозит компьютер после подключения к интернету, попробуйте отключить планировщик пакетов QoS, в некоторых случаях это полностью решить проблему.

1.
Program naconecto;const n=5;varA:array[1..n,1..n] of integer;sum,poz,i,j:integer;BEGINrandomize;for i:=1 to n do  begin    for j:=1 to 1 do      begin        a[i,j]:=random(-100,100);        sum:=sum+1;        if a[i,j]>=0 then          begin            poz:=poz+1;          end;      end;  end;  writeln('cyMMa=',sum);  writeln('noJlo)|(uTeJlbHbIe=',poz);END.2.
Program naconecto;const n=5;varA:array[1..n] of integer;i,sum:integer;BEGINsum:=0;randomize;for i:=1 to n do  begin    a[i]:=random(-5,5);    if a[i]<>0 then      begin        sum:=sum+1;      end    else      begin        break;      end;  end;writeln('cyMMa=',sum);END.