Var K:array [1..15] of integer;
z:integer;
begin
for i:=1 to 15 do
k:= random(56)-20;
z:=0;
for i:=1 to 15 do
if k[i]>0 then z:=z+k[i];
for i:=1 to 15 do
writeln (z);
end.
Начало и доп знаки доставь
Скорее всего в оперативной памяти. Процессор после обратотки информации отправляет её именно туда а позже, когда она уже проработала её можно сохранить в ПЗУ.
А интернет для чего тебе? Это же лёгкие вопросы!
Program chetnoe;Uses crt;Var x:integer;BeginClrscr;Writeln ('Ведите двузначное число');Readln(x);IF X mod 2=0 then Writeln ('Число четное')else Writeln ('Число нечетное');End.
1024 бит/сек = 0.124 килобайт/сек
ответ - 20000 сек