Program prog;
uses crt;
var a: array [1..10] of integer;
i,k: integer;
begin
clrscr;
randomize;
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
writeln ('a[',i,'] = ', a[i]);
if a[i]>0 then inc(k);
end;
writeln;
write('K = ', k);
end.
<em><u>В оперативке данные стираются сразу же после выключения питания.Под "долговременной памятью" я так понимаю ты имеешь ввиду память жёсткого диска,там данные хранятся независимо от того есть питание или нет.</u></em>
вид<span> вид вредоносного программного обеспечения </span><span>, способного создавать копии самого себя и внедряться в код других программ, системные области памяти, загрузочные секторы, а также распространять свои копии по разнообразным каналам связи</span>, способного создавать копии самого себя и внедряться в код других программ, системные области памяти, загрузочные секторы, а также распространять свои копии по разнообразным каналам связи
Program prog;
uses crt;
var a:array[1..10] of integer;
s,i: integer;
begin
clrscr;
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 2 = 1) and (a[i]>6) then
s:=s+a[i];
end;
writeln('Сумма чисел s = ', s);
end.
[8, "1000"]
[9, "1001"]
[10, "1010"]
[11, "1011"]
значится числа таких 2, и большее из них 10