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

СМЕХ

Дата 9.12.2006, 13:15 (ссылка)

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

Загрузка ...

Новичок

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

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

Народ дана задача

Даны сведения о возрасте студентов группы V [20].
1)    определить самого молодого и самого старшего из студентов, их порядковые номера.
2)    Определить средний возраст студентов группы.
3)    Определить сколько студентов имеют возраст более 19 лет.
4)    Сформировать из них новый массив V1.

Я ее почти сделал

Код


Program lab2;                                                                 
var V,m19:array[1..20] of integer;                                            
i,nmax,nmin,max,min,summa,i19:integer;                                        
sr:real;                                                                      
begin                                                                         
for i:=1 to 20 do begin                                                       
writeln('vvedite vozrast ',i,'-ogo stydenta');                                
readln(V[i]);                                                                 
end;                                                                          
min:=V[i];                                                                    
nmin:=1;                                                                      
for i:=2 to 20 do                                                             
if V[i]<min                                                                   
then begin min:=V[i];                                                         
nmin:=i;                                                                      
end;                                                                         
max:=V[i];                                                                    
nmax:=1;                                                                      
for i:=2 to 20 do                                                             
if V[i]>max     
then begin max:=V[i];                                                         
nmax:=i;                                                                      
end;                                                                          

writeln('самы молодой студент его возрраст ',min);                            
writeln('его номер ',nmin);                                                   
writeln('самы старший студент его возрраст ',max);                            
writeln('его номер ',nmax);                                                   

summa:=0;                                                                     
for i:=1 to 20 do                                                             
summa:=summa+V[i];                                                            
sr:=summa/20;                                                                 
writeln('средний возраст студентов равен ',sr:5:2);

Определить сколько студентов имеют возраст более 19 лет.Сформировать из них новый массив V1. Не получается. Не подскажите... smile

M
alexeis1

Модератор: делайте подсветку для кода кнопочкой "КОД".

Это сообщение отредактировал(а) alexeis1 - 9.12.2006, 14:16

paSha_X

Дата 9.12.2006, 13:44 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 80
Регистрация: 5.12.2006
Где: Беларусь, Минск

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

Язык указывать надо....

Rodman

Дата 9.12.2006, 13:47 (ссылка)

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

Загрузка ...

CIO

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

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

Код


Program lab2;
var V,V1,m19:array[1..20] of integer;
    i,j,nmax,nmin,max,min,summa,i19:integer;
    sr:real;
begin
     for i:=1 to 20 do
     begin
        writeln('vvedite vozrast ',i,'-ogo stydenta');
        readln(V[i]);
     end;
     min:=V[i];
     nmin:=1;
     for i:=2 to 20 do
         if V[i]<min then
         begin
              min:=V[i];
              nmin:=i;
         end;
     max:=V[i];
     nmax:=1;
     for i:=2 to 20 do
         if V[i]>max then
         begin
              max:=V[i];
              nmax:=i;
         end;
     writeln('самы молодой студент его возрраст ',min);
     writeln('его номер ',nmin);
     writeln('самы старший студент его возрраст ',max);
     writeln('его номер ',nmax);
     summa:=0;
     for i:=1 to 20 do
         summa:=summa+V[i];
     sr:=summa/20;
     writeln('средний возраст студентов равен ',sr:5:2);
     j:=1;
     for i:=1 to 20 do
     begin
          if(V[i]>19)then
          begin
               V1[j]:=V[i];
               inc(j);
          end;
     end;
end.

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

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

Лотереи мира

СМЕХ

Дата 9.12.2006, 14:32 (ссылка)

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

Загрузка ...

Новичок

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

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

БОЛЬШОЕ СПАСИБО

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