Написать программу которая вводит n элементов массива и вычисляет произведение первого и последнего элемента массива
10-11 класс
|
var
a:array [1..50] of integer;
i,n,p:integer;
begin
repeat
write ('Razmer massiva: ');
readln(n);
until n in [1..50];
for i:=1 to n do
begin
write ('A[',i,'] = ');
readln(a[i]);
end;
p:=a[1]*a[n];
writeln ('Proizvedenie: ',p);
readln;
end.
Другие вопросы из категории
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
Читайте также
чисел. Если последний элемент массива положительный, то найти max среди
элементов массива и заменить его значений последний элемент массива. Массив
распечатать. Иначе – дать сообщение «Массив остался без изменений»
Pascal ABC Срочно!!!!
оказаться)
нужно написать программу на c++
Используя обращения 1) по индексу и 2) по указателю.
координаты точки на плоскости (х,у — действительные числа) и определяет
принадлежность точки заштрихованной области, включая ее границы. Программист
торопился и написал программу неправильно.
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))