1. Дано массив А[1..n]. Составить программу расчёта среднее арифметическое всех...

Question

1. Дано массив А[1..n]. Составить программу расчёта среднее арифметическое всех отрицательных и всех положительных чисел. 2. Дано массив А[1..n, 1..n]. Найти номера рядков, все элементы которого парные.

Answer 1

Ответ:

1)

const N = 4;

var i, j, count, sum, un_count, un_sum:integer;

a:array[1..N, 1..N] of integer;

begin

count:=0;

sum:=0;

un_count:=0;

un_sum:=0;

for i:=1 to N do

for j:= 1 to N do a[i, j]:=random(99)-99;

for i:=1 to N do

for j:= 1 to N do begin

if (a[i,j] < 0) then begin

un_sum:= un_sum + a[i, j];

un_count:= un_count + 1;

end

else begin

sum:= sum + a[i, j];

count:= count + 1;

end;

end;

writeln('Среднее положительное: ', sum/count);

write('Среднее отрицательное: ', un_sum/un_count);

end.

2)

const N = 4;

var i, j, count, sum:integer;

a:array[1..N, 1..N] of integer;

begin

for i:= 1 to N do

for j:= 1 to N do

a[i, j]:= random (99);

for i:=1 to N do

for j:= 1 to N do begin

if (a[i, j] mod 10 = a[i, j] div 10) then

count:= count + 1;

if (count = N) and (j = N) then write('Ряд ', i, 'парный.') else count:= 0;

end;

end.

Comments

и ещё кое-что, где написано в программе "парный" поставь перед буквой п пробел, иначе будет номер ряда впритык со словом "парный" выводиться

---

Вводи всегда парные элементы для проверки (например: 22 , 11, 88, 77, 66) и т.д. , программа должна вывести "Ряд (номер) парный"

---

Ты не написал как должна заполняться матрица (массив в массиве), поэтому я поставил рандомное заполнение (попробуй заполнить массив вручную) для этого замени a[i, j]:= random(99); на readln(a[i, j]);

---

А можно уточнить, почему во второй задаче всегда выпадает count:=0 и программа ничего не выводит?

---

Не за что