Решение задач с массивами на 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
2798
Дмитрий
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

Загрузка...

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


Подпишись