Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Deus95
0 / 0 / 0
Регистрация: 29.09.2013
Сообщений: 28
#1

Нужна блок-схема (Сумма элементов матрицы) - Pascal ABC

23.11.2013, 19:11. Просмотров 255. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  n = 10;
var
  a : array[1..n, 1..n] of integer;
  i, j, s : integer;
begin
  s := 0;
  randomize;
  writeln('матрица');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i,j] := random(100) - 50;
      write(a[i,j]:4);
      if i <> j then s := s + a[i,j]
    end;
    writeln
  end;
  writeln('сумма элементов матрицы кроме элементов на гл. диагонали: ', s)  
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2013, 19:11
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Нужна блок-схема (Сумма элементов матрицы) (Pascal ABC):

Найти количество положительных элементов массива - нужна блок-схема - Pascal ABC
Составить блок схему, и алгоритм на языке ABC Pascal!!! 1)Задан одномерный массив из n элементов.Найти количество положительных элементов...

Определить количество положительных и отрицательных элементов матрицы (блок-схема) - Pascal ABC
Дана матрица А, содержащая положительные и отрицательые элементы. 1. Заполнить матрицу в диалоговом режиме. 2. вывести её на экран. ...

Вычислить сумму элементов каждой строки матрицы (блок-схема) - Pascal ABC
Создайте целочисленную матрицу размера M*N, значение каждого элемента которой равно сумме номера строки и столбца, на пересечении которых...

Определить номер строки матрицы, не содержащей положительных элементов (Блок-схема) - Pascal ABC
Type matr=array of integer; Var A:matr; i,j,n:byte; Function F(A:matr;n:byte):integer; Var i,j,p,k:byte; Begin p:=0; ...

Найти сумму элементов первой и третьей строк матрицы. Блок-схема и программа - Pascal ABC
1.Задан двухмерный массив. Найти сумму элементов первой и третьей строк матрицы.

Нужна блок схема по коду - Pascal ABC
Очень нужно сделать блок-схему Program Zadanie3; uses crt; var xa,ya,xb,yb,xc,yc,yd,xd,ye,xe: integer; a,b,c,d,e,p: real; ...

1
_Developer
application developer
121 / 87 / 35
Регистрация: 30.12.2012
Сообщений: 506
23.11.2013, 19:35 #2
Блок-схема к программе:
Кликните здесь для просмотра всего текста
Нужна блок-схема (Сумма элементов матрицы)
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.11.2013, 19:35
Привет! Вот еще темы с ответами:

Перестановки (нужна блок схема) - Pascal ABC
var a:array of integer; c,i,n:integer; begin cls; readln(n); for i:=1 to n do begin a:=random(10)-5; write(a:5); end; for...

Нужна блок-схема по готовому коду - Pascal ABC
Дан массив целых чисел Найти сумму нечетных положительных элементов массива . program lr91; type t=array of integer; ...

Нужна блок-схема для программы - Pascal ABC
program z4; uses crt; type mn=set of 'a'..'z'; var mn1,mn2:mn; b,d:char; s:string; n,m,i,j:integer; begin ...

Найти количество элементов, больших среднего арифметического всех элементов столбца матрицы. Блок схема - Pascal
program Project1;(*Дана матрица размера m x n. В каждом ее столбце найти количество элементов, больших среднего арифметического...


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

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

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