Решение задач с массивами на Pascal

Изображение:
Решение задач с массивами на 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:15
12575
Дмитрий
15:05

Можно полное решение этой задачи.

Рассчитать значения в одномерном массиве диапазоном от 15 до 25.

12:13

Так всё то же самое, только вместо 

z: array [1..100] of integer;

будет

z: array [15..25] of integer;

Ну и циклы соответственно с теми же индексами.

Мария
09:56

Добрый день. Подскажите пожалуйста, как посчитать произведение элементов массива <=10? Уже 2 сутки пытаюсь, но не выходит

08:08

Здравствуйте. А в чём конкретно проблема? Что не получается?

Алёна
20:42

Помогите решить задачу, пожалуйста. В одномерном массиве из n элементов, заполненных случайными числами от — 100 до 100. Нужно посчитать сумму чисел >35. Помогите, пожалуйста.

07:13

Помочь с решением задач по программированию можем в группе вк: https://vk.com/losev_it

Leena
14:21
+1

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.

Коля
14:26

1.Дано натуральне число n і масив дійсних чисел a[1..n]. Якщо в масиві від'ємні і додатні елементи чергуються, то вивести масив.Інакше одержати новий масив із від'ємних елементів заданого масиву, зберігши порядок їх проходження.

ПОМОГИТЕ!!!

РУССКИЙ
21:01

невразумив)

Владислав
22:44

Здравствуйте, можете помочь?

заполните массив а[1..100] целыми случайными числами из промежутка от –50 до + 50. проверьте, есть ли в массиве отрицательные элементы. если есть, определите наибольшее i, при котором а[i] меньше 0." Паскаль

Дарья
17:31

Найти номер наименьшего элемента в массиве из 20 чисел, заданного датчиком случайных чисел. подскажите пожалуйста решение этой задачи

Марина
15:40

Помогите пожалуйста с задачей: Программа создаёт 2-мерную матрицу 100 на 100 целых чисел и заполняет его случайными целыми числами из диапазона [1…100]. Пользователю предлагается ввести любое [0…100]. Программа подсчитывает, сколько раз встречается такое число в матрице 

дарья
17:38

срочно нужно решить задачу, вообще не понимаю!!!

ДАНЫ ЦЕЛЫЕ ЧИСЛА a1,a2...an. СРЕДИ НИХ ЕСТЬ ПОЛОЖИТЕЛЬНЫЕ И ОТРИЦАТЕЛЬНЫЕ. ЗАМЕНИТЬ НУЛЯМИ ТЕ ЧИСЛА, КОТОРЫЕ ПО МОДУЛЮ БОЛЬШЕ МАКСИМАЛЬНОГО ЧИСЛА 

ПОМОГИТЕ ПОЖАЛУЙСТА

Загрузка...

Подготовка к ГИА


Подпишись