Главное меню  

   

Авторизация  

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


43.5%Russian Federation Russian Federation
36.9%United States United States
6%Ukraine Ukraine
5.2%Canada Canada
1.7%Romania Romania
0.6%Kazakhstan Kazakhstan
0.6%China China
0.6%Belarus Belarus
0.6%United Kingdom United Kingdom
0.4%Australia Australia

Сегодня: 75
Вчера: 213
На этой неделе: 288
На прошлой неделе: 1143
В этом месяце: 3908
В прошлом месяце: 2971
Всего: 9063


   

блог админа

Записи

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

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

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

Условие: Дан массив 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.