Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 18.05.2013
Сообщений: 93
Записей в блоге: 1
1

Для каждого исходного набора вывести номер последного элемента равного 2, или число 0, если в данном наборе нет двоек

27.03.2014, 12:37. Показов 1667. Ответов 1
Метки нет (Все метки)

Даны целые числа K,N, а также K набор целых чисел по N в каждом наборе. Для каждого набора вывести номер его последного элемента равного 2, или число 0, если в данном наборе нет двоек.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.03.2014, 12:37
Ответы с готовыми решениями:

Для каждого набора вывести номер его первого элемента, равного 2, или число 0, если в данном наборе нет двоек
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого...

Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого...

Дано целое число K и набор ненулевых целых чисел.Вывести номер первого числа в наборе, большего K. Если таких чисел в наборе нет, то вывести 0
Реализовать данные задания с помощью циклов с предусловием или циклов с постусловием. Во всех...

Вывести номер первого элемента из набора равного заданному числу
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого...

1
Кодинг - это искусство...
64 / 64 / 42
Регистрация: 07.01.2013
Сообщений: 156
27.03.2014, 13:20 2
Лучший ответ Сообщение было отмечено Alisher2222 как решение

Решение

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
uses crt;
 
const
  K = 10;
  N = 5;
  c = 2;
 
var
  mas:array [1..K,1..N] of integer;
  i,j,z:integer;
  
BEGIN
  for i:=1 to K do
    begin
      for j:=1 to N do
        begin
          mas[i,j]:=Random(10);
          write(mas[i,j],' ');
        end;
      writeln;
    end;
    
  for i:=1 to K do
    begin
      z:=0;
      for j:=1 to N do
        begin
          if mas[i,j]=c then
            z:=j;
        end;
      Writeln('K[',i,']= ',z);
    end;
END.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.03.2014, 13:20

Для каждого набора вывести номер его первого элемента
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого...

Вывести номер последнего нулевого элемента массива или 0, если такого элемента нет
Одномерные массивы. Часть 1 1) номер последнего нулевого элемента или 0, если такого элемента...


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

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

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