Главное меню  

   

Авторизация  

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


61.3%Russian Federation Russian Federation
18.6%Ukraine Ukraine
3.2%Kazakhstan Kazakhstan
2.9%Romania Romania
2.7%United States United States
1.7%Belarus Belarus
1%Republic Of Moldova Republic Of Moldova
0.9%Czech Republic Czech Republic
0.9%United Kingdom United Kingdom
0.7%Germany Germany

Сегодня: 157
Вчера: 146
На этой неделе: 424
На прошлой неделе: 960
В этом месяце: 2656
В прошлом месяце: 2198
Всего: 7368


   

блог админа

Записи

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

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

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

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