Первая программа:
program n1;
var a: array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
K:=0;
For i:=1 to 10 doIf a [i]> 50 then k:=k+1;
Write ('k=', k);
end.
Вторая программа:
program n1;
var a: array[1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
s:=0;
for i:=1 to 10 doif (a [i]>50) and (a [i]<60) then s:=s+a [i];
write ('s=', s);
end.
Дано:
N1= 4096
N2=64
x1y1=x2y2
Найти: V1/V2
Решение:
N=2^I
V= x*y*I
I1=12
I2=6
12/6=2
Ответ: в 2 раза
Всего таких 6 записей, которые удовлетворяют условию.
Ответ: 6
<span>1.Компьютер - это универсальное электронное программно управляемое устройство для работы с информацией </span>
после запятой значение переменной
writeln ('s = ', s);