Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

Дан целочисленный массив из 7 элементов: 1) подсчитать произведение элементов массива кратных 5 и кратных 3. 2)подсчитать среднее значение четных

5-9 класс

элементов массива. 3) найти минимальное значение среди элементов массива <25 и положительных и номера,соответствующего элемента.

Pirforosss 26 дек. 2014 г., 0:24:30 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Otem
26 дек. 2014 г., 2:17:51 (9 лет назад)

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.

Ответить

Другие вопросы из категории

Составьте программу,

которая определяет, является ли введенное целое число нечетным, и выводит на
экран соответствующее сообщение: «Да, число нечетное» или «Нет, число четное».

помогите кто может !!! хелп
Автоматическое устройство осуществило перекодировку двух информационных сообщений равной длины из 8-битной кодировки ASCII в 16-битную кодировку

Unicode в одно новое сообщение, которое при этом увеличилось на 240 байт. Какова длина каждого из исходных сообщений в символах?

Читайте также

решить через паскаль через массивы)) 1.Дан одномерный массив из 10 элементов. Заменить все большие 7 члены массива числом 7. Найти количество

таких членов.

2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.

3.Дан массив из 10 элементов. Найти наибольший элемент массива.

1). Дан массив из n элементов (n >= 4). Подсчитать среднюю арифметическую второго и предпоследнего элемента массива.

2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.

1) Дан одномерный массив из 12 элементов. Составить программу заполняющую массив целыми числами в интервале -20 до 15 2)Требуется

подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8

3)Дан одномерный числовой массив,изменить знак элементов массива К[1;12] на противоположный

Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200 ­– рост учащихся выпускного класса. В баскетбольную команду бе

рут тех, чей рост не менее 180 см. Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде.Нужно паскаль

Дан целочисленный массив из 20 элементов. Элементы массива принимают значения от 0 до 10000 включительно. Написать программу, позволяющую найти и выв

ести максимальное значение среди трехзначных элементов массива, делящихся на 4. Если в исходном массиве нет трехзначного элемента, который делится на 4, то вывести сообщение о том, что такого числа нет.



Вы находитесь на странице вопроса "Дан целочисленный массив из 7 элементов: 1) подсчитать произведение элементов массива кратных 5 и кратных 3. 2)подсчитать среднее значение четных", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.