Вывести на экран элементы массива, кратные 2 и кратные 5, подсчитать их количество

@baarss · Регистрация: 09.12.2011

задан массив из 40 элементов принадлежащих отрезку от А до Б(вводятся с клавиатуры) вывести на экран элементы кратные 2 и кратные 5,подсчитать их количество

@Севак · 23.01.2012, 18:05

Pascal

uses crt;
var
a: array[1..40] of integer;
i,s,v,b,n: integer;
begin
s:=0;
writeln('Введите диапазон [a,b]: ');
read(v,b);
writeln('Массив: ');
for i:=1 to 40 do
    begin
    a[i]:=random(b-v)+v;
    write(a[i]:4);
    end;
writeln('Элементы, кратные 2 и 5: ');
for i:=1 to 40 do
    if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then
       begin
       inc(s);
       write(a[i]:4);
       end;
writeln;
writeln('Кол-во элементов, кратных 2 и 5: ',s);
end.

@baarss 0 / 0 / 0 Регистрация: 09.12.2011 Сообщений: 18
		1
	Вывести на экран элементы массива, кратные 2 и кратные 5, подсчитать их количество 23.01.2012, 16:38. Показов 2129. Ответов 1 Метки нет (Все метки) задан массив из 40 элементов принадлежащих отрезку от А до Б(вводятся с клавиатуры) вывести на экран элементы кратные 2 и кратные 5,подсчитать их количество 0

Опции темы

Вывести на экран элементы массива, кратные 2 и кратные 5, подсчитать их количество

Решение