Написать программу в паскале
Дано три массива A,B,C состоящее из 10 элементов.Присвоить массиву D среднее арифметическое каждого элемента этих трех массивов.
Ответы
Ответ дал:
0
Uses crt;
Var a,b,c,d;array [1..10] of integer;
I:integer;
Begin
Clrscr;
Begin
For i:=1 to 10 do
Begin
a[i]:=random(50)+1;
b[i]:=random(50)+1;
c[i]:=random(50)+1;
d[i]:=(a[i]+b[i]+c[i]) div 3;
end;
Write('A) ');
For i:=1 to 10 do
write(a[i],' ');
Writeln;
write('B) ');
For i:=1 to 10 do
write(b[i],' ');
Writeln;
Write('C) ');
For i:=1 to 10 do
write(c[i],' ');
Writeln;
Writeln('Средние значения ');
Write('D) ');
For i:=1 to 10 do
write(d[i],' ');
Writeln;
Readkey;
End.
Var a,b,c,d;array [1..10] of integer;
I:integer;
Begin
Clrscr;
Begin
For i:=1 to 10 do
Begin
a[i]:=random(50)+1;
b[i]:=random(50)+1;
c[i]:=random(50)+1;
d[i]:=(a[i]+b[i]+c[i]) div 3;
end;
Write('A) ');
For i:=1 to 10 do
write(a[i],' ');
Writeln;
write('B) ');
For i:=1 to 10 do
write(b[i],' ');
Writeln;
Write('C) ');
For i:=1 to 10 do
write(c[i],' ');
Writeln;
Writeln('Средние значения ');
Write('D) ');
For i:=1 to 10 do
write(d[i],' ');
Writeln;
Readkey;
End.
Ответ дал:
0
сначала заполняем массивы ABC случайными числами в интервале 1..50 , потом заполняем массив результатами как подобает , и последние четыре цикла выводит содержимое массивов
Ответ дал:
0
для надежности после 4 строе (сверху в низ) напишите строку Randomize;
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад