Ответ учителя по предмету Информатика
Первое:
program r;
var a:array[0..8] of integer=(-6,7,45,-12,2,7,-15,0,64); l,i,sum:integer;
begin;
for i:=0 to 8 do
if a[i]>0 then begin;
sum:=sum+a[i];
l:=l+1;
end;
for i:=0 to 8 do
writeln(‘A[‘,i,’] = ‘, a[i]);
write(‘Сумма положительных элементов равна ‘,sum,’, а из количество ‘,l);
end.
Второе:
program t;
var d:array [0..40] of integer; l,x:integer;
begin;
for x:=0 to 40 do begin;
d[x]:=45*x+15;
if d[x] mod 2 = 1 then l:=l+1;
end;
write(‘Кол-во нечётных элементов ‘,l);
end.
Третье:
program y;
var p:array [0..25] of real; k:integer; avg:real;
begin;
for k:=0 to 25 do begin;
p[k]:=7*k+3*k/15;
avg:=avg+p[k];
end;
avg:=avg/26;
write(‘Среднее значение элементов массива ‘, avg);
end.
Похожие вопросы от пользователей
Мәтіннің қай түрі?
A)Әңгімелеу
B)Бейнелеу
C)Пайымдау
D)Сипаттау
81÷9+(8-5)×7