0 / 0 / 0
Регистрация: 14.01.2013
Сообщений: 12
1

Для каждой строки двумерного массива подсчитать и выдать на печать количество элементов, кратных 3 и кратных 7

14.01.2013, 17:04. Показов 2088. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
надо консольное приложение , без рандомайза функций и процедур в делфи.Прошу помогите)1 курс,завтра экзамен
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.01.2013, 17:04
Ответы с готовыми решениями:

Для каждой строки двумерного массива подсчитать и выдать на печать количество элементов, кратных 3 и кратных
21. Для каждой строки двумерного массива подсчитать и выдать на печать количество элементов,...

подсчитать и выдать на печать кол-во элементов, кратных 3 и 7.
Для каждой строки двумерного массива подсчитать и выдать на печать кол-во элементов, кратных 3 и 7.

Заполнить массив А(10) случайными числами. Подсчитать и вывести на экран количество элементов массива, кратных 7 и не кратных 3
1) Заполнить массив А(10) случайными числами. Подсчитать и вывести на экран количество элементов...

Определите среднее арифметическое элементов кратных 3, но не кратных 5 для каждой строки матрицы
народ помогите кто может.просто препод мне дал 50 заданий.нужно решить до конца мая.вот я сдал с...

1
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
15.01.2013, 00:29 2
Лучший ответ Сообщение было отмечено Эльбей как решение

Решение

Delphi
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
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  x: Array[1..10,1..10] of Integer;
  i,j,n,m,k1,k2: Integer;
begin
  Write('Введите кол-во строк: '); Readln(n);
  Write('Введите кол-во столбцов: '); Readln(m);
  Writeln('Ввод матрицы:');
  For i:=1 to n do
  For j:=1 to m do
  Readln(x[i,j]);
  For i:=1 to n do
  begin
    k1:=0;
    k2:=0;
    For j:=1 to m do
    begin
      If x[i,j] mod 3=0 Then k1:=k1+1;
      If x[i,j] mod 7=0 Then k2:=k2+1;
      Write(x[i,j],' ');
    end;
    Writeln('Кол-во эл-тов, кратных 3 = ',k1,' кратных 7 = ',k2);
  end;
  Readln
end.
0
15.01.2013, 00:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.01.2013, 00:29
Помогаю со студенческими работами здесь

Для каждой из целочисленных матриц A(6,8) и B(5,7) вывести на печать количество элементов, кратных шести
Написать программу решения следующей задачи: Для каждой из целочисленных матриц A(6,8) и B(5,7)...

Найти для каждой строки матрицы количество элементов, кратных пяти, и выбрать из них наибольший
Дана целочисленная матрица. Найти для каждой строки количество элементов, кратных пяти и из...

Определить количество элементов целочисленного массива А(35), кратных 3 и не кратных 5 одновременно
Определить количество элементов целочисленного массива А(35), кратных 3 и не кратных 5...

Подсчитать количество положительных кратных 3 элементов 1-ой строки
2)подсчитать количество положительных кратных 3 элементов 1-ой строки и количество нечетных...


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

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

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