Решение задач с массивами на Pascal
Задача 1.
Дан одномерный массив из 50 элементов. Массив заполнен
случайными числами от -100 до 100.
Вывести на экран все положительные элементы массива.
var
a: integer;
z: array [1..50] of integer;
begin
for a := 1 to 50 do
begin
z[a] := random(201) - 100;
if z[a] > 0 then
write(z[a],' ');
end;
end.
Задача 2.
Дан одномерный массив из 100 элементов.
Массив заполнен случайными числами от -100 до 100.
Найти сумму тех элементов массива, которые одновременно
имеют четные и отрицательные значения.
var
a, sum: integer;
z: array [1..100] of integer;
begin
sum := 0;
for a := 1 to 100 do
begin
z[a] := random(201) - 100;
if (z[a] mod 2 = 0) and (z[a] < 0) then
sum := sum + z[a];
end;
write('Сумма отриц. элементов = ', sum);
end.
Можно полное решение этой задачи.
Рассчитать значения в одномерном массиве диапазоном от 15 до 25.
Так всё то же самое, только вместо
z: array [1..100] of integer;
будет
z: array [15..25] of integer;
Ну и циклы соответственно с теми же индексами.
Добрый день. Подскажите пожалуйста, как посчитать произведение элементов массива <=10? Уже 2 сутки пытаюсь, но не выходит
Здравствуйте. А в чём конкретно проблема? Что не получается?
Помогите решить задачу, пожалуйста. В одномерном массиве из n элементов, заполненных случайными числами от — 100 до 100. Нужно посчитать сумму чисел >35. Помогите, пожалуйста.
Помочь с решением задач по программированию можем в группе вк: https://vk.com/losev_it
var
a, sum: integer;
z: array [1..100] of integer;
begin
sum := 0;
for a := 1 to 100 do
begin
z[a] := random(201) — 100;
if (z[a] > 35) then sum := sum + z[a];
end;
write('Сумма элементов = ', sum);
end.
1.Дано натуральне число n і масив дійсних чисел a[1..n]. Якщо в масиві від'ємні і додатні елементи чергуються, то вивести масив.Інакше одержати новий масив із від'ємних елементів заданого масиву, зберігши порядок їх проходження.
ПОМОГИТЕ!!!
невразумив)
Здравствуйте, можете помочь?
заполните массив а[1..100] целыми случайными числами из промежутка от –50 до + 50. проверьте, есть ли в массиве отрицательные элементы. если есть, определите наибольшее i, при котором а[i] меньше 0." Паскаль
Найти номер наименьшего элемента в массиве из 20 чисел, заданного датчиком случайных чисел. подскажите пожалуйста решение этой задачи
Помогите пожалуйста с задачей: Программа создаёт 2-мерную матрицу 100 на 100 целых чисел и заполняет его случайными целыми числами из диапазона [1…100]. Пользователю предлагается ввести любое [0…100]. Программа подсчитывает, сколько раз встречается такое число в матрице
срочно нужно решить задачу, вообще не понимаю!!!
ДАНЫ ЦЕЛЫЕ ЧИСЛА a1,a2...an. СРЕДИ НИХ ЕСТЬ ПОЛОЖИТЕЛЬНЫЕ И ОТРИЦАТЕЛЬНЫЕ. ЗАМЕНИТЬ НУЛЯМИ ТЕ ЧИСЛА, КОТОРЫЕ ПО МОДУЛЮ БОЛЬШЕ МАКСИМАЛЬНОГО ЧИСЛА
ПОМОГИТЕ ПОЖАЛУЙСТА