Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Эльбей
0 / 0 / 0
Регистрация: 14.01.2013
Сообщений: 12
1

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

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

надо консольное приложение , без рандомайза функций и процедур в делфи.Прошу помогите)1 курс,завтра экзамен
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.01.2013, 17:04
Ответы с готовыми решениями:

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

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

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

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

Сформировать из элементов двумерного массива, кратных четырем, одномерный массив
написать процедуру, в которой сформировать из элементов двумерного массива...

1
Kodzaev
3007 / 1896 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.01.2013, 00:29

Подсчитать среднее арифметическое положительных элементов массива, кратных его первому элементу
Дан массив из 30 элементов. Каждый элемент может принимать...

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

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


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

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

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