const
n = 10;
var
i, s: integer;
a: array [1 .. n] of integer;
begin
for i := 1 to n do
begin
a[i] := random(20);
write(' ', a[i]:3);
end;
writeln();
writeln('-------');
s := 0;
for i := 1 to n do
begin
if ((a[i] > 0) and (a[i] mod 5 = 0)) then
begin
s := s + (a[i] * 2);
end;
end;
writeln('-------');
writeln(s);
end.
Следующий пример
Program lab9var2zad2;
Uses crt;
Var
a: array [1 .. 4] of integer;
s: longint;
i: integer;
Begin
clrscr;
Writeln('vvedite 4 elementov massiva');
s := 0;
for i := 1 to 4 do
begin
readln(a[i]);
if ((a[i] > 0) and (a[i] mod 5 = 0)) then
s := s + (a[i] * 2);
end;
Writeln('udvoenoe summa elementov massiva= ', s);
end.
Похожие записи/страницы:
- В одномерном массиве, состоящем из N целочисленных элементов, вычислить: 1)Произведение элементов массива с…
- Найти сумму элементов одномерного массива размером 5. Разделить каждый элемент исходного массива на полученное…
- В одномерном массиве, состоящем из N вещественных элементов, вычислить: Сумму элементов массива, расположенных…
- Задан массив С1, С2,...,Сn. Нужно изменить все столбцы матрицы. в которых равен нулю элемент главной…
- В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) произведение отрицательных элементов…
- В массиве в каждой строке найти сумму положительных элементов, стоящих на местах с индексами, кратными 3.…
- Даны два одномерных массива из целых чисел. Найти элементы, которые есть в первом массиве, и которых нет во…
- Сформировать и вывести массив Х из 50 вещественных чисел в пределах от 20.0 до 40.0.Вычислить среднее…