Дан целочисленный массив из 7 элементов: 1) подсчитать произведение элементов массива кратных 5 и кратных 3. 2)подсчитать среднее значение четных
5-9 класс
|
элементов массива. 3) найти минимальное значение среди элементов массива <25 и положительных и номера,соответствующего элемента.
var a:array[1..7]of integer;
p3,p5,s,i,k,min,n:integer;
srz:real;
begin
p5:=1; p3:=1; min:=25;
for i:=1 to 7 do
begin
read(a[i]);
if a[i]<>0 then
begin
if a[i] mod 5=0 then p5:=p5*a[i];
if a[i] mod 3=0 then p3:=p3*a[i];
if a[i] mod 2=0 then
begin
s:=s+a[i];
k:=k+1;
end;
if a[i]<min then
begin
min:=a[i];
n:=i;
end;
end;
end;
srz:=s/k;
writeln;
write('proizv kratnih trem:',p3,' proizv kratnih peti:',p5,' srednee znachenie chet elementov:',srz,' minimalnoe:',min,' nomer minimalnogo:',n);
end.
Другие вопросы из категории
которая определяет, является ли введенное целое число нечетным, и выводит на
экран соответствующее сообщение: «Да, число нечетное» или «Нет, число четное».
Unicode в одно новое сообщение, которое при этом увеличилось на 240 байт. Какова длина каждого из исходных сообщений в символах?
Читайте также
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8
3)Дан одномерный числовой массив,изменить знак элементов массива К[1;12] на противоположный
рут тех, чей рост не менее 180 см. Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде.Нужно паскаль
ести максимальное значение среди трехзначных элементов массива, делящихся на 4. Если в исходном массиве нет трехзначного элемента, который делится на 4, то вывести сообщение о том, что такого числа нет.