Дан массив А (8,5). Распечатать элементы строк, первый элемент в которых больше среднего арифметического строк

@ilyagerasimov · Регистрация: 08.11.2012

Author24 — интернет-сервис помощи студентам

Помогите написать блок-схему программы пожалуйста.

Дан массив А (8,5). Распечатать элементы строк, первый элемент в которых больше среднего арифметического строк.

Pascal

Program two_dimensional_massif;
uses crt;
var a:array [1..8,1..5] of integer;
    b: array [1..8] of real;
    i,j,sum: integer;
    sar: real;
begin
writeln ('Дана матрица');
for i:=1 to 8 do
    begin
    sum:=0;
    for j:=1 to 5 do
        begin
        a[i,j]:=random(101)-50;
        write (a[i,j]:4);
        sum:=sum+a[i,j];
        end;
    writeln;
    b[i]:=sum/5;
    end;
writeln ('Строки, первый элемент в которых больше среднего арифметического');
for i:=1 to 5 do
    begin
    if a[i,1]>b[i] then
       for j:=1 to 5 do
           write (a[i,j]:4);
    writeln;
    end;
readln;
end.

@ermolay · 13.12.2012, 11:55

блок схема

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	13.12.2012, 11:55	2
	блок схема Миниатюры 0

Опции темы