Задать вопрос
4 октября, 22:19

1) ввести с клавиатуры массив А из 5 элементов, найти минимальное из них

2) умножить все элементы массива А на 2

3) найти среднее арифметическое всех элементов массива a

+2
Ответы (2)
  1. 5 октября, 00:50
    0
    Begin

    read (n) ;

    for i:=1 to n do

    readln (a[i]) :

    min:=a[1];

    for i:=2 to n do begin

    if a[i]>max then max:=a[i];

    writeln (a[i])

    end;

    for i:=1 to n do begin

    a[i]:=a[i]*2;

    write (a[i])

    end;

    s:=0;

    for i:=1 to n do

    s:=s+a[i];

    f:=s+/n;

    writeln (f)

    end.
  2. 5 октября, 01:49
    0
    var

    A:array [1 ... 5] of integer;

    i, min, s:integer;

    begin

    for i: = 1 to 5 do

    begin

    write ('Введите ', i,' элемент массива: ') ;

    readln (A[i]) ;

    end;

    min:=A[1];

    s:=0;

    write ('Введенный массив: ') ;

    for i: = 1 to 5 do

    begin

    write (A[i]:4) ;

    if A[i]
    s:=s+A[i];

    A[i]:=A[i]*2;

    end;

    writeln;

    writeln ('Минимальный элемент массива = ', min) ;

    write ('Удвоенные значиния элементов массива: ') ;

    for i: = 1 to 5 do write (A[i]:4) ;

    writeln;

    writeln ('Среднее арифметическое элементов массива = ', s/5) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «1) ввести с клавиатуры массив А из 5 элементов, найти минимальное из них 2) умножить все элементы массива А на 2 3) найти среднее ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы