Информатика | 5 - 9 классы
Что тут неправильно ?
Var a : array[1.
10, 1.
10] of integer ;
i, m, n, j, k : integer ;
s : real ;
begin
Write ('m = ') ; readln(m) ;
write('n = ') ; readln(n) ;
for i : = 1 to m do
for j : = 1 to n do
a[i, j] : = random(50) ;
for i : = 1 to n do
begin for j : = 1 to m do write(a[i, j] : 4) ; writeln ; end ;
for i : = 0 to m do
begin for j : = 0 to n do
begin if a[i][j] = 0 then
begin a[i][j] : = i + j ; end ; end ; end ;
a[i, j] : = k ; writeln('k = ', k) ; end.
Дан массив.
Изменить массив по следующему правилу Все нулевые элементы заменить суммой индексов элемента ;
Дан массив?
Дан массив.
Найти количество отрицательных четных элементов, кратных 7.
Var a : array[1.
10, 1.
10] of integer ; i, m, n, j : integer ; s, k : real ;
begin
Write ('m = ') ; readln(m) ;
write('n = ') ; readln(n) ;
for i : = 1 to m do for j : = 1 to n do begin write('a[', i, ', ', j, '] = ') ; readln(a[i, j]) ; end ;
for i : = 1 to n do begin
for j : = 1 to m do write(a[i, j] : 4) ;
writeln ; end ;
For i : = 1 To m Do Begin
For j : = 1 To n Do Begin k : = 0 ; If ((a[i, j]< ; 0)and ((a[i, j]mod 2) = 0)and (a[i, j] mod 7 = 0))
Then k : = k + 1 ; End ;
writeln('k = ', k) ; end ; end.
Что тут неправильно ?
Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20 ; 40] : Program gh ; var A : array[ 1?
Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20 ; 40] : Program gh ; var A : array[ 1.
___] of integer ; i : integer ; begin for i : = 1 to __ do begin A[i] : = random(___) + ____ ; write(____) ; end ; 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.
ЗАРАНЕЕ СПАСИБО!
Помогите составить блок схему хотя бы по процедуре uses crt ; type mass = array[1?
Помогите составить блок схему хотя бы по процедуре uses crt ; type mass = array[1.
10, 1.
10] of integer ; procedure zam(n, j : integer ; var a : mass ; m, k, l : integer) ; var i, f : integer ; begin m : = a[1, j] ; for i : = 1 to n do if (m> ; a[i, j])or(m = a[i, j]) then begin m : = a[i, j] ; k : = i ; l : = j ; end ; writeln(m) ; if m< ; > ; a[1, j] then begin f : = a[1, j] ; a[1, j] : = a[k, l] ; a[k, l] : = f ; end ; end ; var a, b : mass ; i, j, k, l, n, m : integer ; begin randomize ; readln(n) ; for i : = 1 to n do begin writeln ; for j : = 1 to n do begin a[i, j] : = random(9) + 1 ; write(a[i, j] : 3) ; end ; end ; writeln ; for j : = 1 to n do zam(n, j, a, m, k, l) ; for i : = 1 to n do begin writeln ; for j : = 1 to n do write(a[i, j] : 3) ; end ; writeln ; for i : = 1 to n do begin writeln ; for j : = 1 to n do begin b[i, j] : = random(9) + 1 ; write(b[i, j] : 3) ; end ; end ; writeln ; for j : = 1 to n do zam(n, j, b, m, k, l) ; for i : = 1 to n do begin writeln ; for j : = 1 to n do write(b[i, j] : 3) ; end ; writeln ; end.
Program pr ; var mas : array[1?
Program pr ; var mas : array[1.
10] of integer ; i, min, ind : integer ; Begin randomize ; For i : = 1 to 10 do Begin mas[i] : = Random(100) ; write(mas[i], ' ') ; End ; writeln() ; min : = mas[1] ; For i : = 1 to 10 do Begin If (min> ; mas[i]) then End ; write('Минимальный элемент массива : ', min) ; End.
Что не верно?
Вот задача : Дан одномерный массив А длиной N.
Определить, на какой позиции нахо - дится минимальный элемент массива.
Помогите исправить код так, что бы массив А, заполнялся рандомно?
Помогите исправить код так, что бы массив А, заполнялся рандомно.
Пожалуйста.
Var a : array[1.
100, 1.
100] of integer ; c : array[1.
20, 1.
20] of real ; b : array[1.
20, 1.
20] of real ; i, j, n, k : integer ; t : real ; r : integer ; begin t : = 0 ; Writeln('Введите порядок матрицы : ') ; readln(n) ; for i : = 1 to n do for j : = 1 to n do begin Write('a[', i, ', ', j, '] = ') ; Readln(a[i, j]) ; end ; for i : = 1 to n do for j : = 1 to n do begin b[i, j] : = 1 / i + j - 1 ; end ; for i : = 1 to n do for j : = 1 to n do begin for k : = 1 to n do begin t : = t + a[i, k] * b[k, j] ; end ; c[i, j] : = t ; t : = 0 ; end ; for i : = 1 to n do begin for j : = 1 to n do begin write(' ', c[i, j] : 2 : 2) ; end ; Writeln ; end ; end.
Задан двухмерный массив?
Задан двухмерный массив.
Расположить все элементы матрицы в строку в порядке возрастания : ( в чем ошибка?
Программа не идет) : program niv ; const n = 2 ; m = 2 ; var i, j, d : integer ; c : real ; a : array[1.
M, 1.
N] of real ; begin for i : = 1 to n do ; begin a[i, j] : = random (10) - 5 ; a[i, j] : = random (10) - 5 ; writeln(a[i, j]) ; end ; for i : = 1 to m do begin for j : = 1 to n - 1 do begin for d : = 1 to n - j do begin if a[i, d]> ; a[i, d + 1]then begin c : = a[i, d] ; a[i, d] : = a[i, d + 1] ; a[i, d + 1] : = c ; end ; end ; end ; / / / / / end ; writeln('сортировка') ; for i : = 1 to m do begin for j : = 1 to n do begin writeln(a[i, j]) ; writeln(a[2, j]) ; end ; end ; end.
USES Crt ; const N = 10 ; VAR A : array[1?
USES Crt ; const N = 10 ; VAR A : array[1.
N] of integer ; k : integer ; Function FUN : integer ; Var i, M : integer ; Begin writeln('Введите число M = ') ; readln(M) ; k : = 0 ; for i : = 1 to N do if A[i] FUN : = k ; End ; Procedure SOSTMAS ; Var i : integer ; Begin for i : = 1 to N do begin A[i] : = Random(199) - 100 ; write(A[i] : 5) ; end ; Writeln ; end ; BEGIN SOSTMAS ; Writeln(FUN) ; что то неправильно говорят массив.
Определить s : 1) Var s, k : integer ; Begin s : = 0 ; for k : = 14 to 18 do s : = s + 7 ; writeln(s) ; End?
Определить s : 1) Var s, k : integer ; Begin s : = 0 ; for k : = 14 to 18 do s : = s + 7 ; writeln(s) ; End.
2) Var s, k : integer ; Begin s : = 0 ; for k : = 1 to 11 do s : = s + 12 ; write(s) ; End.
3) var s, k : integer ; begin s : = 100 ; for k : = 0 to 10 do s : = s - 5 ; writeln (s) ; end.
Что надо переделать (или добавить) чтобы все работало?
Что надо переделать (или добавить) чтобы все работало?
Program dfgvsdrfg ;
Var A : array [1.
16] of integer ;
k, i : integer ;
begin
writeln('исходные значения') ;
for i : = 1 to 16 do
begin
A[i] : = random (41) - 20 ;
write (A[i], '') ;
end ;
writeln ;
write('нулевые значения имеют элементы с индексами : ')
for i : = 1 to 16 do
if A[i] = 0 then write (i, '') ;
end.
Вы перешли к вопросу Что тут неправильно ?. Он относится к категории Информатика, для 5 - 9 классов. Здесь размещен ответ по заданным параметрам. Если этот вариант ответа не полностью вас удовлетворяет, то с помощью автоматического умного поиска можно найти другие вопросы по этой же теме, в категории Информатика. В случае если ответы на похожие вопросы не раскрывают в полном объеме необходимую информацию, то воспользуйтесь кнопкой в верхней части сайта и сформулируйте свой вопрос иначе. Также на этой странице вы сможете ознакомиться с вариантами ответов пользователей.
Var a : array[1.
10, 1.
10] of integer ;