Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
DrWorm
0 / 0 / 0
Регистрация: 12.10.2012
Сообщений: 2
#1

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

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

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

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

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

Формирование массивов - Pascal
Здраствуйте, я никогда не учил паскаль а теперь поступил в колледж, и мне задали такую задачу: 1.Составте программу, которая формирует...

Формирование массивов - Pascal
Дана прямоугольная матрица размера m×n. Составить программу, которая находит столбцы с наибольшей и наименьшей суммой элементов. Вывести...

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

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

2
К-Мишель
17 / 14 / 2
Регистрация: 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
Привет! Вот еще темы с ответами:

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

Сумма элементов между двумя заданными ячейками - Pascal
Найти сумму элементов между двумя заданными ячейками. Решить тоже нужно в паскале, с помощью массивов. Причем элементов в массиве должно...

Формирование вектора Z из положительных элементов матрицы - Pascal
Заданы матрицы А(4*7) и В(4*5),элементы которых вычисляются по формулам a(i,j)=((i-j)/(2,3-(i+j)); b(i,j)=((i-j)/(3,77-(i+j)); Из...

Количество четных элементов и формирование нового массива. - Pascal
Помогите плз. Дан целочисленный двумерный массив, содержащий N строк и M столбцов. Посчитать кол-во четных элементов в каждой строке...


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

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

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