5 / 5 / 2
Регистрация: 02.10.2010
Сообщений: 30
1

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

14.10.2010, 13:13. Показов 2283. Ответов 2
Метки нет (Все метки)

Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2, или число 0, если в данном наборе нет двоек.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.10.2010, 13:13
Ответы с готовыми решениями:

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

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

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

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

2
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
14.10.2010, 13:25 2
Лучший ответ Сообщение было отмечено Lissa_kamcha как решение

Решение

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
uses crt;
const nmax=20;
var k,n,a,i,j,i1:integer;
    f:boolean;
begin
clrscr;
write('Количество наборов K=');
readln(k);
write('Количество чисел в наборе N=');
readln(n);
writeln('Введите наборы чисел:');
for i:=1 to k do
 begin
  writeln('Набор ',i);
  i1:=0;f:=true;
  for j:=1 to n do
   begin
    readln(a);
    if (a=2) and f then
     begin
      i1:=j;
      f:=false;
     end;
   end;
  writeln('Номер первого числа 2=',i1);
 end;
readln
end.
Добавлено через 33 секунды

Не по теме:

Как там на краю?....

1
5 / 5 / 2
Регистрация: 02.10.2010
Сообщений: 30
14.10.2010, 13:44  [ТС] 3
На краю все по тихой)) Хотя я сейчас не там нахожусь
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.10.2010, 13:44
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru