Информатика | 10 - 11 классы
Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали надо вот эту программу исправить program Project2 ; {$APPTYPE CONSOLE} uses SysUtils ; var A : array of array of Integer ; n, i, j : Integer ; sum : Real ; begin Writeln('Vvedite n') ; readln(n) ; SetLength(a, n, n) ; Writeln('Vvedite A') ; for i : = 1 to n do for j : = 1 to n do Readln (A[i, j]) ; Sum : = 0 ; for i : = 1 to n do for j : = 1 to n do ; begin if (j> ; i) then sum : = sum + A[i, j] ; end ; Writeln ; Writeln ; Writeln('sum = ', sum : 8 : 3) ; Readln ; readln ; Readln ; end.
Составить блок схему по программе : Program Vectors ; var k, i, j, sum, para : integer ; y, z : array[1?
Составить блок схему по программе : Program Vectors ; var k, i, j, sum, para : integer ; y, z : array[1.
100] of integer ; begin sum : = 0 ; para : = 0 ; writeln('Введите количество элементов в массивах') ; readln(k) ; for i : = 1 to k do begin writeln('Введите z - ', i) ; readln(z[i]) ; writeln('Введите y - ', i) ; readln(y[i]) ; if z[i] = y[i] then para : = para + 1 ; sum : = sum + z[i] ; end ; writeln('Количество элементов удовлетворяющих условию : ', para) ; writeln('Сумма всех элементов массива z = ', sum) ; readln ; end.
Program1?
Program1.
Pas(17) : Нельзя изменять значение переменной цикла внутри этого цикла
Помогите исправить ошибку .
Program Lin_10 ;
uses crt ;
type mas = array [1.
9, 1.
9] of integer ;
var D, b : mas ;
i, j, t, min : integer ;
Begin
clrscr ;
Randomize ;
for i : = 1 to 9 do begin
for j : = 1 to 9 do begin
D[i, j] : = random(30) - 60 ; Write(D[i, j] : 4) ; End ;
Writeln ; Writeln(' Задача 10_1 ') ;
for i : = 1 to 9 do
for j : = 1 to 9 do begin
min : = D[i, j] ;
End ;
If min> ; D[i, j] then min : = [i, j] ; End ;
Writeln ; Writeln('Min = ', min) ; Writeln(' Задача 10_2 ') ; for i : = 1 to 9 do begin for j : = 1 to 9 do begin If (D[i, j] mod 2) = 0 then D[i, j] : = 0 ;
Write(D[i, j] : 4) ;
End ; Writeln ; Writeln(' Задача 10_3 ') ; t : = 1 ; for j : = 1 to 9 do begin i : = j ;
B[t] : = D[i, j] ; t : = t + 1 ;
u : = t ; End ;
For t : = 1 to u - 5 do begin
Write (D[t] : 4) ;
End ;
Writeln ; Writeln(' Задача 10_4 ') ;
Writeln(' Задача 10_5 ') ;
sum : = 0 ;
for i : = 1 to 9 do For j : = 1 to 9 do begin
If D[i, j] mod 3 = 0 then Sum : = sum + D[i, j] ;
End ;
Write('sum = ', sum) ;
Readln ;
End ;
Помогите найти ошибку в программе?
Помогите найти ошибку в программе.
Умножение двумерного массива.
Pas(29) : Нельзя преобразовать тип integer к array [1.
100] of array [1.
100] of integer.
Вот сама программа : умножение матриц в обратном порядке, т.
Е первый элемент на последний, второй на предпоследний и.
Т. д.
Var x : integer ; a1 : array[1.
100, 1.
100] of integer ; a2 : array[1.
100, 1.
100] of integer ; a3 : array[1.
100, 1.
100] of integer ; i, j, m, n : integer ; begin writeln('Введите размер матрицы') ; readln(m, n) ; for i : = 1 to m do begin for j : = 1 to n do end ; begin writeln('Введите элементы первой матрицы') ; for i : = 1 to m do begin for j : = 1 to n do readln(a1[i, j]) ; end ; end ; begin writeln('Введите элементы второй матрицы') ; for i : = 1 to m do begin for j : = 1 to n do readln(a2[i, j]) ; end ; end ; begin a3 : = a1[i, j] * a2[x + 1 - i, x + 1 - j] ; for i : = 1 to m do begin for j : = 1 to n do readln(a3[i, j]) ; end ; writeln ; end ; readln ; end.
ЗАРАНЕЕ СПАСИБО!
Объяснить, что означает каждая строчка : Program sum_mas ; uses Crt ; Var i : integer ; sum : real ; M : array[1?
Объяснить, что означает каждая строчка : Program sum_mas ; uses Crt ; Var i : integer ; sum : real ; M : array[1.
5] of Real ; begin WriteLn('Введите число m[', i, '] = ') ; readln(m[i]) ; end ; Sum : = 0 ; For i : = 1 to 5 do Sum : = sum + m[i] ; Writeln('сумма = ', sum) ; readln ; end.
Какое число было введено в данной программе, если результатом исполнения является число 100?
Какое число было введено в данной программе, если результатом исполнения является число 100?
Var a : array [1.
8] of integer ; i, sum : integer ; begin readln (a [1]) ; sum : = 0 ; for i : = 1 to 8 do a [i] : = a [i - 1] + 3 ; for i : = 8 downto 1 do sum : = sum + a [i] ; writeln (sum) end.
Отредактируйте, пожалуйста?
Отредактируйте, пожалуйста.
В заданном двумерном массиве найти индексы первого элемента, превосходящего среднее арифметическое всех элементов.
Uses crt ; var b : array[1.
1000, 1.
1000] of integer ; sum, kolvoel, i, j, n : integer ; srar : real ; begin randomize ; n : = 0 ; writeln('Vv razmer matrici') ; readln(n) ; kolvoel : = sqr(n) ; sum : = 0 ; srar : = 0 ; for i : = 1 to n do for j : = 1 to n do begin b[i, j] : = random(2 * 20 + 1) - 20 ; end ; for i : = 1 to n do {vivod matr} begin for j : = 1 to n do write ( b [ i, j ] : 4) ; writeln ; end ; for i : = 1 to n do for j : = 1 to n do sum : = b[i, j] + sum ; srar : = sum / kolvoel ; writeln('srasr = ', srar) ; for i : = 1 to n do for j : = 1 to n do begin if b[i, j]> ; srar then writeln('i = ', i, 'j = ', j) ; break ; end ; end.
Всем привет?
Всем привет.
Вообщем, вот задача и к ней необходимо написать программу(Pascal).
Код программы будет ниже.
Нужно проверить его на ошибки и дать коментарии к коду.
Если код неправильный прошу подкорректировать.
Буду очень признателен.
Заранее спасибо.
Задача : Дана последовательность из n действительных чисел (n < ; = 100).
Написать программу для подсчета суммы этих чисел.
Код программы : var massiv : array [1.
100] of real ; sum : real ; n, i : integer ; begin clrscr ; writeln ('Введите количество чисел') ; readln (n) ; for i : = 1 to n do begin writeln ('Введите ', i, ' - ое число') ; readln (massiv [i]) ; end ; sum : = 0 ; for i : = 1 to n do sum : = sum + massiv [i] ; writeln ('Сумма последовательности равна ', sum : 0 : 4) ; readln ; end.
Необходимо написать программу сложения двух матриц произвольной размерности, предусмотреть проверку возможности сложения?
Необходимо написать программу сложения двух матриц произвольной размерности, предусмотреть проверку возможности сложения.
Программа написана не верно, помогите исправить ошибки.
Type mass = array[1.
10, 1.
10] of real ; var a, b, c : mass ; n, m, i, j, n1, m1 : integer ; procedure MatrA (var a : mass) ; var n, m, i, j : integer ; begin for i : = 1 to n do for j : = 1 to m do writeln('a[', i, ', ', j, '] : ') ; readln(a[i, j]) ; end ; procedure MatrB (var b : mass) ; var i, j, n1, m1 : integer ; begin for i : = 1 to n1 do for j : = 1 to m1 do writeln('b[', i, ', ', j, '] : ') ; readln(b[i, j]) ; end ; procedure Sum(a, b, c : mass) ; var i, j, n, m : integer ; begin for i : = 1 to n do for j : = 1 to m do c[i, j] : = a[i, j] + b[i, j] ; end ; begin writeln('Введите n, m матрицы A') ; readln(n, m) ; MatrA(a) ; writeln('Введите n, m матрицы B') ; readln(n1, m1) ; MatrB(b) ; if (n1< ; > ; n) and (m1< ; > ; m) then writeln('Матрицы сложить нельзя') ; readln ; Sum(a, b, c) ; writeln('A + B') ; for i : = 1 to n do begin for j : = 1 to m do write(c[i, j] : 1 : 3, ' ') ; writeln ; end ; readln ; end.
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;
Помогите пожалуйста написать в С + + ?
Помогите пожалуйста написать в С + + .
Program Matrix7 ; var a : array [1.
10, 1.
10] of integer ; M, N, K, i, j : Integer ; begin Write('N : ') ; Readln(N) ; Write('M : ') ; Readln(M) ; Write('K : ') ; Readln(K) ; for i : = 1 to M do begin writeln(i, ' : ') ; for j : = 1 to N do begin Write(j, ' : ') ; Read(a[i, j]) ; end ; end ; for j : = 1 to N do begin Write(' : ', a[K, j]) ; end ; writeln(' : ') ; end.
Дана матрица размера М и N и целое число К ( 1≤ К ≤ М).
Вывести элементы К - й строки данной матрицы.
На этой странице сайта размещен вопрос Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали надо вот эту программу исправить program Project2 ; {$APPTYPE CONSOLE} uses SysUtils ; var A : array of arra? из категории Информатика с правильным ответом на него. Уровень сложности вопроса соответствует знаниям учеников 10 - 11 классов. Здесь же находятся ответы по заданному поиску, которые вы найдете с помощью автоматической системы. Одновременно с ответом на ваш вопрос показаны другие, похожие варианты по заданной теме. На этой странице можно обсудить все варианты ответов с другими пользователями сайта и получить от них наиболее полную подсказку.
Var x : array [1.
32000, 1.
32000] of integer ;
n, s, i, j : integer ;
begin
writeln('n = ') ;
readln(n) ;
writeln('vvedite massiv = ') ; for i : = 1 to n do
begin for j : = 1 to n do
begin read(x[i, j]) ;
end ; writeln ; end ;
s : = 0 ;
for i : = 1 to n do
for j : = 1 to n do
if i< ; = j then
s : = s + x[i, j] ;
writeln('s = ', s) ;
end.