1) найти больший элемент в массиве а[6]. 2) в массиве а[50] найти среднее арифмитическое всех элементов массива и вывести на экран те элементы, которые ему равны.
131
305
Ответы на вопрос:
Const n=6; var m,k,i: integer; var a: array[1..n] of integer; begin m: =integer.minvalue; writeln ('исходный массив'); for i: =1 to n do begin a[i]: =random(20); write (a[i]: 3); if a[i]> m then begin m: =a[i]; k: =i; end; end; writeln; writeln ('наибольший элемент массива: a[',k,'] = ',m); end. исходный массив 2 1 12 12 16 4 наибольший элемент массива: a[5] = 16 const n=50; var sa: real; i,k: integer; var a: array[1..n] of integer; begin sa: =0; k: =0; writeln ('исходный массив'); for i: =1 to n do begin a[i]: =random(3); write (a[i]: 2); sa: =sa+a[i]; end; sa: =sa/n; writeln; writeln ('среднее арифметическое = ',sa); writeln; writeln ('элементы массива, равные среднему арифметическому: '); for i: =1 to n do begin if a[i]=sa then begin writeln ('a[',i,'] = ',a[i]); k: =1; end; end; if k=0 then writeln ('нет таких элементов'); end. исходный массив 0 0 0 0 1 2 1 2 1 1 2 1 1 0 0 1 0 0 1 2 1 1 1 2 2 1 0 1 1 2 0 1 1 0 0 0 2 2 1 1 2 1 2 0 2 1 2 1 1 2 среднее арифметическое = 1 элементы массива, равные среднему арифметическому: a[5] = 1 a[7] = 1 a[9] = 1 a[10] = 1 a[12] = 1 a[13] = 1 a[16] = 1 a[19] = 1 a[21] = 1 a[22] = 1 a[23] = 1 a[26] = 1 a[28] = 1 a[29] = 1 a[32] = 1 a[33] = 1 a[39] = 1 a[40] = 1 a[42] = 1 a[46] = 1 a[48] = 1 a[49] = 1 ps: как правило эта программа выводит пустой результат. т.е. нет элементов, равных среднему арифметическому. возможно что-то упущено в условии .
//язык pascal program test; const max = 360; var elements: array[1..4] of real; sum: real; begin sum : = 0; for var i: = 1 to 4 do begin write('введите ', i, ' угол: '); readln(elements[i]); sum : = sum + elements[i]; end; if (sum = max) then begin writeln(); writeln('существует! '); end else begin writeln(); writeln('не существует! '); end; end.
Популярно: Информатика
-
Dobrota201712.02.2023 03:59
-
JadenGirl09.10.2022 12:54
-
ego191714.10.2022 23:29
-
Zasxca06.07.2020 20:15
-
karinatan1235420.03.2020 12:43
-
krasorka05.08.2021 10:53
-
kateadel0115.11.2022 04:53
-
AlexandraFox1329.10.2020 09:37
-
ДиDi1525.05.2020 06:14
-
uchenik198823.12.2021 19:54