Var a:array[1..10] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a[i]);
sum:=sum+a[i];
end;
writeln(sum/10)
end.
18. - а)
19. - д)
20. - Надо отмечать их на картинке... Где картинка paint'а?
Program primer1;
var k:integer;
begin
writeln('введите K');
readln(k);
If k>0 then k:= k-6 else k:= k+10;
write(k);
End.
Ну давайте считать
32 часа=1920минут=115200секунд
115200/2=57600сек
57600*117=6739200кбит=6581,25мбит
57600*(117/3)=2246400кбит=2193,75мбит
6581+2193,75=8775мбит
вот и ответ
Program n1;
const n=13;
var a: array[1..n] of real;
i: integer;
p: real;
begin
p:=1;
for i:=1 to n do
begin
readln(a[i]);
p:=p*a[i];
end;
writeln('массив:');
for i:=1 to n do write(a[i],' ');
writeln;
writeln('произведение: ',p);
end.