Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
impowski
0 / 0 / 0
Регистрация: 17.01.2014
Сообщений: 13
1

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

04.04.2014, 21:32. Просмотров 585. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program zadanie9_1;
Uses crt;
var i,j,a,b,neg,pos:integer;
k:array [1..25,1..25] of longint;
begin
write('Введите кол-во строк: ');readln(a);
write('Введите кол-во столбцов: ');readln(b);
randomize;
for i:=1 to a do
begin
for j:=1 to b do
begin
k[i,j]:=Random(10)-5;
write(k[i,j]:3);
end;
writeln;
end;
end.
Не мог вот это довести до ума, не знаю как точно сделать чтоб оно высчитывало где наибольшее количество именно по строке, у меня есть что то вроде этого, но оно считает по всем строкам и затем выводит, кол-во положительных и отрицательных, но это не совсем то.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2014, 21:32
Ответы с готовыми решениями:

Создать матрицу размера nxm. Найти строку с наибольшим количеством отрицательных элементов
Создать матрицу размера nxm. Найти строку с наибольшим количеством отрицательных элементов. Вывести...

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

Для каждого массива определить номер столбца с наибольшим количеством положительных элементов.
Использование функций, возвращающих одно значение. Даны целочисленные массивы A, B. Для каждого...

Создать матрицу размера nxm. Найти строку с наибольшим количеством положительных элементов
Создать матрицу размера nxm. Найти строку с наибольшим количеством положительных элементов. Вывести...

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

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
27292 / 18261 / 7229
Регистрация: 22.10.2011
Сообщений: 32,159
Записей в блоге: 6
04.04.2014, 22:34 2
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
34
35
36
37
program zadanie9_1;
Uses crt;
var i,j,a,b,neg,pos:integer;
k:array [1..25,1..25] of longint;
total, line, index : integer;
begin
write('Введите кол-во строк: ');readln(a);
write('Введите кол-во столбцов: ');readln(b);
randomize;
total := 0;
for i:=1 to a do
begin
  line := 0;
  for j:=1 to b do
  begin
    k[i,j]:=Random(10)-5;
    if k[i,j] > 0 then inc(line);
  end;
  if line > total then
  begin
    total := line; index := i;
  end;
end;
 
for i:=1 to a do
begin
  if i = index then
    textcolor(lightgreen)
  else textcolor(lightgray);
 
  for j:=1 to b do
    write(k[i,j]:3);
  writeln;
end;
readln;
 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2014, 22:34

Найти сумму четных элементов каждой строки массива и раскрасить красным цветом четные элементы
Заполнить двумерный числовой массив А целыми числами. Найти сумму четных элементов каждой строки...

Найти номер строки матрицы с наибольшим количеством четных чисел
Задан рандомный двухмерный массив. Найти в нём номер рядка, в котором наибольшее количество парных...

Найти столбец с наибольшим количеством положительных элементов - программа с меню
Написать программу, включающую следующие процедуры: Создать матрицу А(7х7) случайных чисел в...


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

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

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