Сформировать массив z, в который включить из массива x элементы, превышающие среднее арифметическое - Turbo Pascal
Формулировка задачи:
Заданы два вещественных массива Х(n) и Y(m) . Сформировать массив Z , в который включить из массива X элементы, превышающие среднее арифметическое значение массива Y, а из массива Y - элементы, превышающие среднее арифметическое значение массива X .
зарание спасибо!
Решение задачи: «Сформировать массив z, в который включить из массива x элементы, превышающие среднее арифметическое»
textual
Листинг программы
uses crt;
var x,y,z:array[1..100] of integer;
k,i,s,s1:integer;
sr,sr1:real;
begin
k:=0;
for i:=1 to 5 do begin
x[i]:=random(10);
y[i]:=random(10);
end;
writeln('Massiv x');
for i:=1 to 5 do
write(x[i]:4);
writeln;
writeln('Massiv y');
for i:=1 to 5 do
write(y[i]:4);
writeln;
for i:=1 to 5 do
s:=s+x[i];
sr:=s/5; {ñðåä. Г*ðèô. Гµ}
for i:=1 to 5 do
s1:=s1+y[i];
sr1:=s/5; {ñðåä. Г*ðèô. y}
for i:=1 to 5 do
if x[i]>sr1 then begin k:=k+1; z[k]:=x[i]; end;
for i:=1 to 5 do
if y[i]>sr then begin k:=k+1; z[k]:=y[i]; end;
writeln('Massiv z');
for i:=1 to k do
write(z[i]:4);
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д