Помогите пожалуйста написать программу: "Найти номера отрицательных элементов одномерного числового массива и
10-11 класс
|
вывести их на экран.
var a: array [1..15] of integer;
i:integer;
Begin
for i := 1 to 15 do
read(a[i]);
for i:= 1 to 15 do
if a[i] < 0 then write(i,' ');
End.
var arr:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do read(arr[i]);
for i:=1 to 15 do if arr[i]<0 then write(i,' ');
end.
Другие вопросы из категории
программу, которая подсчитывает количество отрицательных элементов в заданном
массиве a, размерностью n.
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
в одномерном массиве все отрицательные элементы заменить модулем, а положительные заменить числом 888
2. Найти квадраты всех отрицательных чисел среди N заданных.
3. Найти количество чисел, среди N введенных,которые имеют нечетные порядковые номера, а сами являются четными числам.
4. напишите программу для вычисления суммы:
- 1*1!+2*2!+3*3!+....+n*n!
- 1*3+3*5+5*7+...n(n+2)
- 1+11+111+...+111+1-n слагаемых.
Помогите, пожалуйста написать программы для паскаля, очень нужно. Заранее спасибо.
лементов. Результат распечатать в виде:
Сумма наибольших=
Сумма наименьших=
№2
Даны два массива по 30 элементов. Найти среднее арифмитическое для элементов 1-го массива,номера которых больше номера минимального элемента 2-го массива
Заранее спасибо
2.написать программу в паскале
f(x)=2(sin*sin)x+1