Написать программу, которая вводит n элементов массива и вычисляет сумму первого и максимального элемента массива
Ответы на вопрос:
uses crt;
var a: array [1..1000] of integer; max,i,k: integer; begin write('введи количество элементов массива: '); read(k); for i: =1 to k do begin a[i]: =random(100)-50; write(a[i]: 4); end;
writeln; max: = a[1]; for i: =1 to k do if a[i]> max then max: =a[i]; writeln('максимальный элемент: ',max); writeln ('сумма первого и максимального элементов: ',max+a[1])end.
случайным образом вводятся целые числа от 0 до 999.max - максимальный элемент массиваi - цикловая переменная.vara : array [1..100] of integer; max, i, n : integer; beginreadln (n); for i : = 1 to n doa [ i ] : = random (1000); max : = a [ 1 ]; for i : = 2 to n doif a [ i ] > max thenmax : = a [ i ]; writeln (max + a [ 1 ])end.
Популярно: Информатика
-
ГретхенМарго04.12.2021 14:24
-
drmkhva31.07.2022 01:35
-
Дашакот234568116.09.2021 15:02
-
yra837200429.04.2021 18:16
-
ilyaronaldo20.09.2020 20:32
-
wasuablezko31.03.2021 09:06
-
StefaLandon25.09.2020 01:45
-
vaider22219.12.2021 14:47
-
3klass107.01.2020 11:27
-
AmAss05.09.2021 10:20