VPF::[Pascal] Одномерные массивы - Форум программистов

joi

Дата 15.2.2007, 23:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 13.2.2007

Репутация: нет
Всего: нет

Дано целое число К. огласить масив натуральных чисел А[K] используя цикл while do вывести на экран значение элементов масива с клавиатуры и среднее арифметическое всех отрицательных элементов.

нужно очень очень)0000000000

Rodman

Дата 16.2.2007, 10:07 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

Код


uses crt;
var a:array [1..20] of shortint;
   i,k:integer;
   sum,count,c:integer;
begin
 clrscr;
  writeln('Vvedite koli4estvo elementov  ');
  readln(k);
   for i:=1 to k do
    begin
     write('element [',i,']= ');
     readln(a[i]);
    end;
count:=0;
sum:=0;
    i:=1;
    while i<=k do
    begin
     writeln('element [',i,']= ',a[i]);
     if(a[i]<0)then
     begin
       sum:=sum+a[i];
       inc(count);
     end;
    inc(i);
    end;
     writeln('Srednee = ', sum/count);
   readln;
   end.

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Oleg_Ci

Дата 16.2.2007, 13:19 (ссылка)

(нет голосов)

Загрузка ...

Friend

Профиль
Группа: Участник
Сообщений: 485
Регистрация: 28.5.2006
Где: Новосиб.обл.

Репутация: 25
Всего: 30

Одна из первых программ на pascal/delphi у меня.
У Rodman, я подсматривал smile

Код


program Project1;
{$APPTYPE CONSOLE Borland Delphi 2005}

uses
  SysUtils;

var
  a:array[1..100] of smallint;
  k, i, count, sum: smallint;

begin
  write('Enter length array = ');
  readln(k);

  { читаем числа с консоли }
  i:=1;
  while i<=k do begin
    write('number[', i, '] = ');
    readln(a[i]);
    i:=i+1;
  end;

  { выводим числа на консоль }
  i:=1;
  writeln;
  writeln('Out array[', k, ']');
  while i<=k do begin
    writeln('number[', i, '] = ', a[i]);
    i:=i+1;
  end;

  {среднее  арифметическое  всех  отрицательных  элементов}
  i:=1;
  count:=0;
  sum:=0;
  while i<=k do begin
    if( a[i]<0 ) then begin
      sum:= sum+a[i];
      count:=count+1;
    end;
    i:=i+1;
  end;
  writeln;

  if (count>0) then
    writeln('Arithmetical mean = ', sum/count)
  else
    writeln('Zero of negative elements !');

  readln;
end.

Rodman

Дата 16.2.2007, 13:27 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

Oleg_Ci, smile

Код


program Project1;
{$APPTYPE CONSOLE Borland Delphi 2005}
uses
  SysUtils;

это для Делфи, задающего вопрос может ввести в заблуждение... из этого оставь

Код


program Project1;
uses
  crt;

и обычный паскаль поймет все...

2. а так - очень даже не плохо...

но joi, где то потерялся... как прога???

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

joi

Дата 16.2.2007, 15:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 13.2.2007

Репутация: нет
Всего: нет

спасибо

V.A.KeRneL

Дата 16.2.2007, 19:40 (ссылка)

(нет голосов)

Загрузка ...

Vadim A. Kazantsev

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 3.12.2006
Где: Moscow, Russia

Репутация: 7
Всего: 14

joi, выдержка из Правил форума "Центр помощи" (вверху страницы):
«Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или флажком при ответе»

--------------------

«C'est un pense-creux d'ici. C'est le meilleur et le plus irascible homme du monde...» © Ф.М. Достоевский, «Бесы»
---/)/)---(\.../)---(\(\
--(':'=)---(=';'=)---(=':')
(")(")..)-(").--.(")-(..(")(")

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »