а1 = 100
аn = 990
n = 90
S = (100+990)*90/2 = решишь сам))
var a:array[1..100] of integer;
s,i: integer;
begin
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
if a[i] mod 3 = 0 then begin
s:=s+a[i];
end; end;
writeln('summa chisel kratnx 3 = ', s);
readln;
end.
Во время работы с компьютером
Есть 3 ответа, они расположены в последовательности действий:
3. На сравнении программных кодов с известными вирусами;
4. На определении заражённых файлов.
<span>1. На удалении зараженных файлов; </span>