С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
DrWorm
0 / 0 / 0
Регистрация: 12.10.2012
Сообщений: 2
1

Формирование массивов, поиск элементов с заданными свойствами

15.10.2012, 22:35. Просмотров 1020. Ответов 2
Метки нет (Все метки)

Даны сведения о массах 15 вагонов состава - массив A [15].
1)Определить число вагонов N1 с массой >60 т. ,их суммарная масса, число N2 вагонов с массой <= 60 т. и их суммарный масса.
2)Сформировать соответственно массивы B1 [N1] и B2[N2].
3) Определить самый тяжелый вагон в массиве B1, его порядковый номер.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.10.2012, 22:35
Ответы с готовыми решениями:

Массив. Поиск элементов с заданными свойствами
Дан массив целых чисел из n элементов, заполненный случайным образом числами из...

Поиск одинаковых элементов массивов.
Дано три одномерных массива. Найти количество одинаковых элементов в 3-х...

Формирование массивов
Сформировать квадратную матрицу по заданному образцу: 1 1 1 … 1 ...

Формирование массивов
Дана прямоугольная матрица размера m×n. Составить программу, которая находит...

Формирование массивов
Здраствуйте, я никогда не учил паскаль а теперь поступил в колледж, и мне...

2
К-Мишель
17 / 14 / 18
Регистрация: 21.09.2012
Сообщений: 30
15.10.2012, 23:46 2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
var
  a,b1,b2:array[1..15] of integer;
  n1,n2,i,max,k:integer;
begin
  n1:=0;
  n2:=0;
  for i:=1 to 15 do
  begin
    readln(a[i]);
    if a[i]>60 then
    begin
     inc(n1);
     b1[n1]:=a[i];
    end
    else
    begin
      inc(n2);
      b2[n2]:=a[i];
    end;
  end;
  if n1=0 then writeln('vagonov m>60 net')
  else
  begin
    max:=b1[1];
    k:=1;
    writeln('vagonov m>60 ',n1,' ix massi');
    for i:= 1 to n1 do
    begin
      write(b1[i],' ');
      if b1[i]>max then
      begin
         max:=b1[i];
         k:=i;
      end;
    end;
    writeln;
    writeln('bolshii vagon imeet massy ',max,' nomer ',k);
  end;
  if n2=0 then writeln('vagonov m<=60 net')
  else
  begin
    writeln('vagonov m>60 ',n1,' ix massi');
    for i:=1 to n2 do write(b2[i],' ');
  end;
  readln;
end.
Добавлено через 4 минуты
Я так поняла в 3 задании нужно было найти порядковый номер большего вагона в массиве b1? Если нужно порядковый номер в исходном массиве - там немного исправить придётся, но это не сложно, если нужна будет помощь - скажи, напишу второй вариант.
1
DrWorm
0 / 0 / 0
Регистрация: 12.10.2012
Сообщений: 2
16.10.2012, 00:12 3
Спасибо. если что скажу завтра уже)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.10.2012, 00:12

Формирование массивов
Сформировать квадратную матрицу порядка n по заданному образцу

Попадает ли точка с заданными координатами в верхнюю половину кольца с заданными радиусами и центром
определить, лежит ли точка с координатами(х,у) внутри верхней половины кольца с...

Сумма элементов между двумя заданными ячейками
Найти сумму элементов между двумя заданными ячейками. Решить тоже нужно в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru