помогите пожалуйста! вообщем задачи надо составить по паскалю
1. Дан массив состоящий из 12 случайных целых чисел от -5 до 12. Все его элементы умножить на последний элемент.
2.Дан массив состоящий их 7 вещественных чисел. Из всех положительных элементов массива вычесть элемент с номером k, из всех отрицательных n ( числа k и n вводятся с клавиатуры). Нулевые элементы оставить без изменения.
3. В массиве хранится информация о росте 25 челловек. Определить, на сколько рост самого высокого человека превышает рост самого низкого.
4. Дан массив целых чисел. Найти номер первого четного элемента массива (массив просматривайте с конца, используя цикл for...downto). Если четных елементов нет. то должно быть напечатано соответствующее сообщение.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a: array[1..12] of integer;
begin
for i:=1 to 12 do read(a[i]);
for i:=1 to 12 do write(a[i]*a[12], ' ');
end.