Предмет: Информатика,
автор: Yann14
1. Написать программу, которая выводит на экран сумму средних арифметических значений двух вещественных массивов из 10 элементов.
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
Ответы
Автор ответа:
0
Я так понимаю, что "значение массива" - это сумма его элементов. Если это так, то вот решение:
1)
Var a,b:array[1..10] of real;
s,k:real; i:integer;
Begin
wtiteln('Init A:')
for i:=1 to 10 do
begin
readln(k);
a[i]=k;
end;
wtiteln('Init B:')
for i:=1 to 10 do
begin
readln(k);
b[i]=k;
end;
s:=0;
k:=0;
for i:=1 to 10 do
k:=k+a[i];
k:=k/10;
for i:= to 10 do
s:=s+b[i];
s:=(s/10)+k;
writeln(s);
End.
2)
Var a,b:array[1..10] of real;
r,k:real, i:integer;
Begin
writeln('Init A:");
for i:=1 to 10 do
begin
readln(k);
a[i]:=k;
end;
writeln('Init B:");
for i:=1 to 10 do
begin
readln(k);
b[i]:=k;
end;
r:=0
k:=0;
for i:=1 to 10 do
k:=k+a[i];
for i:=1 to 10 do
r:=r+b[i];
r:=r-k;
writeln(r);
End.
1)
Var a,b:array[1..10] of real;
s,k:real; i:integer;
Begin
wtiteln('Init A:')
for i:=1 to 10 do
begin
readln(k);
a[i]=k;
end;
wtiteln('Init B:')
for i:=1 to 10 do
begin
readln(k);
b[i]=k;
end;
s:=0;
k:=0;
for i:=1 to 10 do
k:=k+a[i];
k:=k/10;
for i:= to 10 do
s:=s+b[i];
s:=(s/10)+k;
writeln(s);
End.
2)
Var a,b:array[1..10] of real;
r,k:real, i:integer;
Begin
writeln('Init A:");
for i:=1 to 10 do
begin
readln(k);
a[i]:=k;
end;
writeln('Init B:");
for i:=1 to 10 do
begin
readln(k);
b[i]:=k;
end;
r:=0
k:=0;
for i:=1 to 10 do
k:=k+a[i];
for i:=1 to 10 do
r:=r+b[i];
r:=r-k;
writeln(r);
End.
Похожие вопросы
Предмет: Химия,
автор: sparkl12380
Предмет: Алгебра,
автор: enotpoloskun22807
Предмет: Химия,
автор: makarovrg96
Предмет: Литература,
автор: кошкасоня
Предмет: Химия,
автор: Oksanochca