Дан массив из 16 целых чисел, случайно заданных в диапазоне от 0 до 70. Получить max(a1*a16*,a2*a15,...,a8*a9*).
5-9 класс
|
Program Pr1;
uses crt;
var mas:array[1..16] of integer;
max:array[1..8] of integer;
i,b,c:integer;
Begin
clrscr;
randomize;
b:=0;
for i:=1 to 16 do mas[i]:=random(71);
for i:=1 to 16 do write(mas[i]);
for i:=1 to 16 div 2 do begin
max[i]:=mas[i]*mas[16-b];
b:=b+1;
end;
writeln();
for i:=1 to 8 do write(max[i]);
end.
Другие вопросы из категории
Решение или в картинках или же рукописно сюда.
1.
Вывести на экран сообщение:
использованием циклов For, While, Repeat.
ПОЖАЛУЙСТА! ОЧЕНЬ СРОЧНО!
Читайте также
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
Программа задумывает случайное число в диапазоне от 0 до 99. После каждой попытки играющего прога выводит сообщение "больше", "меньше", "угадано". Дается 10 попыток. Программа завершается, если дан правильный ответ или попытки закончились.
чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать алгоритм на произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.
2. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с чётными номерами. Протестировать алгоритм на произвольных массивах размерностью 5 и 8 элементов.
3. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с нечётными номерами в обратном порядке. Протестировать алгоритм для следующих исходных данных:
а) 1 3 5 6 8 9
б) -1 4 6 2 4 6 8 6 9
P.S. Убедительная просьба написать решение целиком и до наступления ночи. Я являюсь дилетантом в Паскале, а эти три задачи являются моим домашним заданием по информатике на завтра.
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.
Формат входных данных
В певой строке входного файла содержится одно целое число n(1<=n<=200).Во второй строке находятся n целых чисел a1,a2...aN (-1000<=ai<=1000)-елементы массива.
Формат выходных данных
В единственной строке выходного файла выведите одно слово "YES",если в этом массиве есть три числа сумма которых равна нулю.Иначе выведите "NO".