Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 27.01.2010
Сообщений: 18
1

По двумерным массивам

10.02.2010, 21:28. Просмотров 1061. Ответов 2
Метки нет (Все метки)

По двумерным массивам
Пусть шесть населенных пунктов, обозначены номерами от 1 до 6(величина К),а пять кандидатов-номерами от 1 до5 (величина n). Колличество голосов, набранных в каждом пункте, определяется формулой А=rondom(10i +50),где i-номер варианта. Вывести на экран таблицу результатов голосования, где значения в строках- данные из населен пунктов, а в столбцах- данные по конкретным кандидатам. Выполнить дополнительное задание своего варианта. Создать одномерный массив с искомыми данными.
Номер варианта №9
Доп. Задание: В каких населенных пунктах количество опрошенных больше некоторого заданного числа n.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.02.2010, 21:28
Ответы с готовыми решениями:

по двумерным массивам
дана целочисленная квадратная матрица. Определить: 1)сумму элементов в тех столбцах, которые не...

По двумерным массивам
Дан двумерный массив. Найти сумму элементов с k1 до k2 строки.

Курсовая по двумерным массивам!
1.Задана квадратная матрица. Переставить строку с макси¬мальным элементом на главной диагонали со...

ЛЕГКАЯ по двумерным массивам
нужно составить блок-схему ОДНОЙ из двух задач. 1.Дана квадратная матрица A(N,N). Составить...

2
9713 / 2467 / 49
Регистрация: 06.03.2009
Сообщений: 8,502
10.02.2010, 22:03 2
Лёха_Брест, и причем тут раздел форума - О форуме и сайтах Замечания, пожелания, предложения...?!
0
Модератор
62500 / 46689 / 32181
Регистрация: 18.05.2008
Сообщений: 112,956
11.02.2010, 09:26 3
Лучший ответ Сообщение было отмечено Лёха_Брест как решение

Решение

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
38
39
40
41
42
uses crt;
const k=6;
      n=5;
var a:array[1..k,1..n+1] of integer;//матрица +1 столбец под суммы
    b:array[1..k] of integer;//массив
    i,j,sm,n1,k1:integer;
begin
clrscr;
randomize;
writeln('Результаты голосования:');//выводим заголовок
writeln('Кл. опр.':4*n+10);
for i:=1 to k do//по количеству пунктов
 begin
  sm:=0;
  for j:=1 to n do//по количеству кандидатов
   begin
    a[i,j]:=random(10*i+50);//присваиваем значения по условию
    write(a[i,j]:4);//выводим в строку
    sm:=sm+a[i,j];//считаем сумму в строке
   end;
  a[i,n+1]:=sm;//пишем ее в дополнительный столбец
  writeln(a[i,n+1]:7);//выводим с отступом
 end;
writeln;
write('Введите число для сравнения n1=');
readln(n1);
k1:=0;
for i:=1 to k do//по числу пунктов
if a[i,n+1]>n1 then//если значение суммы=последний столбец матрицы, больше числа
 begin
  k1:=k1+1;//считаем
  b[k1]:=i;//номер записываем в массив
 end;
if k1=0 then write('Ни в одном пункте нет опрошенных больше ',n1)
else
 begin
  writeln('Пункты где опрошенных больше ',n1);
  for i:=1 to k1 do
  write(b[i],' ');
 end;
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.02.2010, 09:26

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Задание по одномерным и двумерным массивам
1.В векторе заменить максимальный элемент на (+1), а минимальный на (-1). 2. В матрице B (n,m)...

Нужно доделать задачу по двумерным и одномерным массивам
Здравствуйте,прошу помочь с не очень сложной задачкой. Условия: Заполнить двумерный массив A...

Функции к двумерным массивам
Два двумерных массива, содержащие соответственно 3х5 и 4х8 вещественных элементов. Ввести и...

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


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

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

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