Предмет: Информатика,
автор: wbrbv98031213
помогите пожалуйста! вообщем задачи надо составить по паскалю
1. Дан массив состоящий из 12 случайных целых чисел от -5 до 12. Все его элементы умножить на последний элемент.
2.Дан массив состоящий их 7 вещественных чисел. Из всех положительных элементов массива вычесть элемент с номером k, из всех отрицательных n ( числа k и n вводятся с клавиатуры). Нулевые элементы оставить без изменения.
3. В массиве хранится информация о росте 25 челловек. Определить, на сколько рост самого высокого человека превышает рост самого низкого.
4. Дан массив целых чисел. Найти номер первого четного элемента массива (массив просматривайте с конца, используя цикл for...downto). Если четных елементов нет. то должно быть напечатано соответствующее сообщение.
Ответы
Автор ответа:
0
1)
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.
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.
Интересные вопросы
Предмет: Алгебра,
автор: aqerke2010
Предмет: Математика,
автор: dixove
Предмет: Алгебра,
автор: abdullaevanasiba2008
Предмет: История,
автор: viktoriya20021
Предмет: Математика,
автор: nafanja97