Помогите, пожалуйста, решить задачу по паскалю, умоляю! - Форум
Пятница, 09.12.2016, 12:38
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите, пожалуйста, решить задачу по паскалю, умоляю!
Помогите, пожалуйста, решить задачу по паскалю, умоляю!
leon0909Дата: Воскресенье, 26.09.2010, 17:45 | Сообщение # 1
Лейтенант
Группа: Новичок
Сообщений: 12
[ 0 ]
Статус: Offline
Массив размером N заполнен случайными числами из интервала [-10; 5]. Определить кол-во ненулевых элементов и среднее арифметическое ненулевых элементов.
 
ВахаДата: Воскресенье, 26.09.2010, 18:19 | Сообщение # 2
Подполковник
Группа: Новичок
Сообщений: 28
[ 6 ]
Статус: Offline
Quote (leon0909)
Массив размером N заполнен случайными числами из интервала [-10; 5]. Определить кол-во ненулевых элементов и среднее арифметическое ненулевых элементов.

uses CRT;
var
mas: array [1..100] of shortint;
n, i, j, s: integer;
sr: real;
BEGIN
ClrScr;
randomize;
Writeln ('Введите количество элементов: ');
ReadLn (n);
For i:=1 to n do
mas[i]:=random (15)-10;
WriteLn ('Исходный массив: ');
for i:=1 to n do
begin
Write (mas[i], ' ');
if mas[i]<>0 then
begin
inc (j);
inc (s, mas[i]);
end;
end;
WriteLn;
sr:=s/j;
WriteLn ('Количество ненулевых элементов: ', j);
WriteLn ('Среднее арифметическое ненулевых элементов: ', sr:8:2);
ReadKey;
END.


Гвардия умирает но не сдается
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите, пожалуйста, решить задачу по паскалю, умоляю!
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016