series29-40

Решение задач. День двадцатый. Series29-40

Приветствуем читателей нашего сайта! Сегодня мы с вами решим задачи series29-40.

Series29-40

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

Решение Показать

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

Series31. Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Найти количество наборов, содержащих число 2. Если таких наборов нет, то вывести 0.
Решение Показать

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

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

Series34. Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора выполнить следующее действие: если в наборе содержится число 2, то вывести сумму его элементов; если в наборе нет двоек, то вывести 0.
Решение Показать

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

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

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

Series38. Дано целое число K, а также K наборов ненулевых целых чисел. Каждый набор содержит не менее двух элементов, признаком его завершения является число 0. Для каждого набора выполнить следующее действие: если элементы набора возрастают, то вывести 1; если элементы набора убывают, то вывести −1; если элементы набора не возрастают и не убывают, то вывести 0.
Решение Показать

Series39. Дано целое число K, а также K наборов ненулевых целых чисел. Каждый набор содержит не менее трех элементов, признаком его завершения является число 0. Найти количество пилообразных наборов (определение пилообразного набора дано в задании Series23).

За основу кода решения данной задачи я взяла решение series23. Как вы видите, оно почти не изменилось.

Решение Показать

Series40. Дано целое число K, а также K наборов ненулевых целых чисел. Каждый набор содержит не менее трех элементов, признаком его завершения является число 0. Для каждого набора выполнить следующее действие: если набор является пилообразным (см. задание Series23), то вывести количество его элементов; в противном случае вывести номер первого элемента, который не является зубцом.
Решение Показать

На сегодня всё! Если у вас возникли вопросы, задавайте их в комментариях. И не забывайте рассказывать о нашем сайте своим друзьям, кликая по этим замечательным круглым (квадратным) кнопочкам!

  • Ангелина Киселёва

    у вас ошибочка в 32 задании writeln(‘Номер первого элемента набора, равного 2: ‘,n);
    а должно быть так writeln(‘Номер первого элемента набора, равного 2: ‘,j);

  • Виталий

    Всем привет. Не судите строго, но я считаю, что без использования массивов эти задачи не имеют ни малейшего смысла, так как не очень то удобно получить решения во время ввода данных, и после того, как данные будут введены искать » а что же нам тут показала наша задача».
    Гараздо приятнее смотреть на результат работы такой задачи, например для

    Всем привет. Не судите строго, но я считаю, что без использования массивов эти задачи не имеют ни малейшего смысла

    program mas;
    uses crt;
    var k,n,i,j:integer;
    a:array[1..100,1..100] of real;
    l:boolean;
    begin
    clrscr;
    writeln(‘Введите размерность матрицы k,n: ‘);
    readln(k,n);
    for i:=1 to k do
    for j:=1 to n do
    begin
    write(‘a[‘,i,’,’,j,’] = ‘);
    readln(a[i,j]);
    end;
    for i:=1 to k do
    begin
    l := false;
    for j:=1 to n do
    if a[i,j] = 2 then
    begin
    l:=true;
    writeln(‘В строке ‘,i,’ индекс элемента равного двум ‘,j);
    break;
    end;
    if not l then
    writeln(‘В строке ‘,i,’ элемента равного двум нет’);
    end;
    readln;
    end.

  • Елена

    всем привет))помогите решить задачу в Паскале.
    Перемножение двух матриц.
    Заданы трехмерные матрицы
    одинаковых размеров 7x7x7,
    заполненные случайными числами из диапазона [1, 100]. Перемножить их элементы,
    имеющие одинаковые индексы, и вывести результаты на экран и записать в файл
    «output.txt».