Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.06.2009, 16:11   #1
Vitruvian
 
Регистрация: 04.06.2009
Сообщений: 9
По умолчанию В Паскале не шарю, помогите решить задачу

Подпрограммы.Составить программу на Паскале.
Дан одномерный массив, выполнить следующие действия:
-определить, сколько среди элементов чисел, равных к;
-определить, сколько процентов от общего числа элементов составляют положительные элементы;
-создать массив с помощью генератора случайных чисел и определить среднее арифметическое;
-определить колличество ненулевых элементов.
Vitruvian вне форума Ответить с цитированием
Старый 04.06.2009, 16:27   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
определить, сколько среди элементов чисел, равных к;
Ну вот так:
Код:
var a:array[1..10] of byte; i,c:byte;
begin
 {Допустим массив ввели}
 for i:=1 to 10 do 
  if a[i]=k then inc(c);
 {Ну и С ввыводи}
end.
Для прикола во еще один экзотический вариант:
Код:
   var a:array[1..10] of byte; q,w,e:byte;
begin   e:=0;randomize;
 for q:=1 to 10 do begin 
  a[q]:=random(5);
  write(a[q]:5); 
  e:=e+byte(a[q]=3) {Тут кол-во считается трешек}
 end;
writeln;
write(e);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 04.06.2009, 16:43   #3
NoHeart
Пользователь
 
Регистрация: 15.01.2009
Сообщений: 52
По умолчанию

Код:
var a:array [1..1000] of integer;
    n,i,kolk,pol,nenol,k:integer;
    percent,sum:real;
begin
kolk:=0;
pol:=0;
writeln (' Введите кол-во элементов ');
readln(n);
writeln (' Введите число k');
readln(k);
  for i:=1 to n
   do begin
     a[i]:=random(10)-random(10);
     sum:=sum+a[i];
     if a[i]=k then inc(kolk);
     if a[i]>=0 then inc(pol);
     if a[i]<>0 then inc(nenol);
   end;
percent:=(pol/n)*100;
sum:=sum/n;
writeln (' Кол-во элементов равных к=',kolk);
writeln (' Кол-во процентов положительных элементов от общего числа =',percent);
writeln (' Кол-во ненулевых элементов =',nenol);
writeln (' Среднее арифметическое =',sum);
end.
NoHeart вне форума Ответить с цитированием
Старый 04.06.2009, 17:10   #4
Vitruvian
 
Регистрация: 04.06.2009
Сообщений: 9
По умолчанию

ААА Спасибо Вам ! Большое Спасибо )))
Vitruvian вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачу на паскале Bauyrzhan Помощь студентам 2 30.05.2009 10:20
Помогите решить задачу в паскале P@niSheR Помощь студентам 2 08.12.2008 18:48
Помогите решить задачу в ПАСКАЛЕ triston Помощь студентам 3 17.11.2008 17:46
Помогите решить задачу на паскале! jst.denis Помощь студентам 2 28.10.2007 11:13