Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
kraaasoootka
3 / 3 / 1
Регистрация: 18.01.2012
Сообщений: 67
#1

МАССИВ - Pascal

22.01.2012, 20:54. Просмотров 251. Ответов 1
Метки нет (Все метки)

Для матрицы из 4 столбцов и 5 строк отпечатать номер каждой строки. в которой последний элемент больше среднего арифметического элементов этой строки, и число таких строк.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.01.2012, 20:54
Я подобрал для вас темы с готовыми решениями и ответами на вопрос МАССИВ (Pascal):

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы...

Дан массив А. Составить массив В, в котором b[ i ]=a[0]+a[1]+a[2]+....+a[ i ] i=0,1,2,3,4......n-1. Распечатать массив В
Дан массив А. Составить массив В, в котором b=a+a+a+....+a...

из заданного теста выбрать цифры и записать в массив N ,а буквы - в массив B .Все остальные символы записать в массив S
Привет всем.Помогиет пожалуйста решить задачку из заданного теста выбрать...

Создать двумерный массив все четные элементы переписать в одномерный массив
создать двумерный массив все четные элементы переписать в одномерный массив

Массив. Сформировать массив C, элементы которого равны сумме элементов массивов A и B
Сформировать массив C из массивов A и B, элементы которого равны сумме...

Вычислить среднее арифметическое элементов, дописать в массив и отсортировать массив по возростанию
5)Вычислить среднее арифметическое элементов, дописать в массив и отсортировать...

1
Andyc
206 / 183 / 104
Регистрация: 10.01.2011
Сообщений: 302
22.01.2012, 21:16 #2
Лучший ответ Сообщение было отмечено kraaasoootka как решение

Решение

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
uses crt;
const
  n=5;
  m=4;
var
  A: Array[1..n,1..m] of Integer;
  i, j, k, s: Integer;
begin
  ClrScr;
  Randomize;
  Writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      A[i,j]:=Random(101)-50;
      Write(A[i,j]:4);
    end;
    Writeln;
  end;
  Writeln('Номера строк, у которых последний элемент больше среднего арифметического:');
  k:=0;
  for i:=1 to n do
  begin
    s:=0;
    for j:=1 to m do s:=s+A[i,j];
    if A[i,m]>s/m then
    begin
      Inc(k);
      Write(i:4);
    end;
  end;
  if k=0 then Write('таких строк нет');
  Writeln;
  Writeln('Всего найдено строк: ', k);
  Readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.01.2012, 21:16
Привет! Вот еще темы с решениями:

Дан массив а из модулей отрицательных элементов массива а надо построить массив b
Дан массив а из модулей отрицательных элементов массива а надо построить массив...

Массив символов. В процедуре отсортировать массив по алфавиту в обратном порядке
Ввести данные (тип данных указан в вариантах) с клавиатуры в виде «Х=», где i –...

Ввести с клавиатуры массив, вывести этот массив в обратном порядке
Ввести с клавиатуры массив размерностью NxM, вывести этот массив в обратном...

дан массив. Переписать его положительные элементы во второй массив ........
помогите пожалуйста решить две задачи очень срочно нужно 1. дан массив....


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

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

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