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

№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от -100 до 100. Напишите программу, которая позволит

10-11 класс

подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива

ЧанЧан 02 авг. 2013 г., 1:51:07 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
помогите21
02 авг. 2013 г., 3:19:35 (10 лет назад)

var a:array[1..40] of integer;

i, j, cou, coumax, amax: integer;

begin

   coumax:=0;

   for i:=1 to 40 do

      readln(a[i]);

   for i:=1 to 40 do begin

      cou:=0;

      for j:=1 to 40 do

         if(a[i]=a[j]) then inc(cou);

      if(cou>coumax) then begin

         coumax:=cou;

         amax:=a[i];

      end;

   writeln(amax, ' is the most repeated value');

end.

 

var a1, temp, cou, i, sum:integer;

begin

   read(a1);

   if (a1>=0) then cou:=1 else cou:=0;

   if (cou>0) then sum:=a1 else sum:=0;

   for i:=2 to 40 do begin

      read(temp);

      if (temp>0) and (temp mod a1=0) then begin

         inc(cou);

         inc(sum,temp);

      end;

   end;

   writeln(sum/cou)

end.

Ответить

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

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

№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от 0 до 100. Напишите программу, которая позволит найти сумму

двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.

дан массив из 30-ти элементов. Каждый элемент может принимать целочисл

енные значения от -100 до 100. Напишите программу, которая позволит подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. Первый элемент не равен 0. (Паскаль)

ПАСКАЛЬ.1)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 1000.опишите на русском языке или на одном из

языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.

дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от -100 до 100. Напишите программу, которая позволит подсчитать

среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. СРОЧНО QBaSIC

дан массив из семи элементов написать программу подсчитывающую

среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива



Вы находитесь на странице вопроса "№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от -100 до 100. Напишите программу, которая позволит", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.