Написать программу в паскале

10-11 класс

Дано три массива A,B,C состоящее из 10 элементов.Присвоить массиву D среднее арифметическое каждого элемента этих трех массивов.

СашаЛатышева 26 янв. 2014 г., 10:28:12 (10 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

Nikyshasepgysha

26 янв. 2014 г., 11:46:42 (10 лет назад)

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.

Хороший ответ

0 Жалоба Ответить

+ 0 -

Balsan

26 янв. 2014 г., 13:26:16 (10 лет назад)

подмечено ли там , Чем заполнять массивы ?

Хороший ответ

0 Жалоба Ответить

+ 0 -

1010101010100

26 янв. 2014 г., 15:14:11 (10 лет назад)

или модно псевдослучайно

Хороший ответ

0 Жалоба Ответить

Ответить