Главное меню  

   

Авторизация  

   
   
Хостинг в Украине
   


67.7%Russian Federation Russian Federation
13.5%Ukraine Ukraine
3.4%United States United States
2.6%China China
2.1%Romania Romania
1.9%Australia Australia
1.1%Belarus Belarus
1%Czech Republic Czech Republic
0.9%United Kingdom United Kingdom
0.9%Kazakhstan Kazakhstan

Сегодня: 4
Вчера: 15
На этой неделе: 4
На прошлой неделе: 155
В этом месяце: 19
В прошлом месяце: 1552
Всего: 4732


   

блог админа

Записи

  • Главная
    Главная Страница отображения всех блогов сайта
  • Категории
    Категории Страница отображения списка категорий системы блогов сайта.

Элементы массива

Добавлено : Дата: в разделе: Прикладная информатика

Условие: Дан массив ex[i] в котором 6 элементов. Найти сумму элементов массива кратных 7 и среднее арифметическое всех элементов массива.

Решение:

const n=6;// массив до 6
var ex: array [1..n] of integer;
i: integer;
K: integer;
sum:real;
begin
for i:=1 to n do
begin
readln(ex[i]);//вводим массив
end;
K:=0;//обнуляем счетчик чисел кратных 7
for i:=1 to n do
begin
if (ex[i]>0) and (ex[i] mod 7=0) then //ищем числа кратные 7
K:=K+ex[i];// если находим то складываем пример: k:=0+7 где 7 число введено пользователем, если чисел кратных 7 несколько то складываем их.
end;
sum := 0;//обнуляем счетчик суммы массива for i:=1 to 6 do
begin
sum := sum + ex[i]; //считаем сумму массива end;
writeln('сумма элементов кратных семи = ',K); //выводим на экран writeln('Средне арифметическое всех элементов массива ',sum/n:4:2);//выводим на экран readln;
end.
Редактировалось Дата:

You have no rights to post comments

   
© 2012 fordus.