Кто знает армянский язык?нужна помощь по информатике,Turbo Pascal

Question

Кто знает армянский язык?нужна помощь по информатике,Turbo Pascal

Comments

средний арифметический - (a+b)/2

---

можете помочь?

---

блок схем я не делаю.

---

и как именно формируются элементы вектора У не понятно. Вы сами понимаете?

---

а кажется дошло. элементы вектора У это такие элементы из Х которые больше среднеарифметического значения максимума и минимума вектора Х

---

da ponimayu no na armyanski

---

if x[i] > (max + min) / 2

---

da tak

---

программу могу написать, а блок схемы делать не умею

---

xorosho,

Answer 1

Var
    x, y: array[1..100] of integer;
    i, n, k: integer;
    min, max: integer;

begin
    {ввод массива}
    write('n = ');
    readln(n);
    
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        readln(x[i]);
        
    end;
    writeln();
    
    {минимум и максимум}
    max := x[1];
    min := x[1];
    for i := 1 to n do
    begin
        if max < x[i] then max := x[i];
        if min > x[i] then min := x[i];
    end;
    writeln('max = ', max);
    writeln('min = ', min);
    writeln('avg = ', (max + min) / 2);
    
    max := (max + min) / 2;
    k := 0;
    for i := 1 to n do
    begin
        if x[i] >= max then begin
            k := k + 1;
            y[k] := x[i];
            write(y[k], ' ');
        end;
    end;
end.

Comments

bolshoe spasibo

---

не за что. и вообще для спасибо есть кнопочка)

---

помогите пожалуйста
Дано N целое число и N x N размер матрицы.
Составить блок-схему и на языке Turbo Pascal написать программу,которые подсчитают и напечатают среднее арифметическое для печати матричных элементов главной диагонали вниз, значение которых относятся данному [a;b] диапазону .

---

следующий раз кидай мне ссылку на задание в сообщении, так будет проще