Program gt;
var a:array[1..1000]of integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 10 do
begin
if(a[i]=i+10)then write(a[i],' ');
end;
end.
Ответ:
program s;
var
a:array [1..50] of integer;
i,P,C: integer;
begin
for i:=1 to 7 do
begin
a[i]=random (30);
end;
for i:=1 to 7 do begin
C:=C+a[i];
Р:=P*a[i];
end;
writeln (C);
writeln (P);
end.
Объяснение:
Вообще программа вычисляла произведение всех элементов массива. Теперь вычисляет и сумму всех элементов массива.
4 минуты-240 секунд.
Мы имеем в 3 раза меньше. 80 секунд.
Значит 8:3 и получаем 2,6
Ответ:
Я думаю CTRL
Типо ctrl+c ctrl+v или как-то так