Исправить ошибки в паскале
program exp3;
const m=5; n=3;
type matr = array [1 ... m, 1 ... n] of integer;
var m: matr; b, i, j, k : integer; повторно объявленный идентификатор
begin
clrscr;
randomize;
for i: = 1 to m do begin
for j: = 1 to n do begin
m [i, j] : = random (101) ;
end; end;
k: = n/2; попытка присвоить integer тип real
for j: = 1 to k do begin
for i: = 1 to m do begin
b : = m [ i, j ];
m [ i, j ] : = m [ i, n - j + 1 ];
m [i, n - j + 1 ] : = b;
end; end;
for i: = 1 to m do begin
for j: = 1 to n do begin
writeln ('m[i, j]: 5) ; неверное выражение
end;
writeln; readln; end; end.
Ответы (1)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Исправить ошибки в паскале program exp3; const m=5; n=3; type matr = array [1 ... m, 1 ... n] of integer; var m: matr; b, i, j, k : ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Исправить ошибки в паскале program exp2; const m=5; n=3; type matr = array [ 1 ... m, 1 ... n ] of integer; var m: matr; k, i, j : integer; p: real; повторно объявленный идентификатор begin clrscr; неизвестный идентификатор writeln (' k=') ;
Ответы (1)
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Program z17; const n = 60; var c: array [1 ... n] of integer; k, i:integer; Begin randomize; k:=0; for i:=1 to n do c: = random (21) - 10; if i mod 4 = 0 then if c=0 then k:=k+c[i]; end; end; end; writeln (k) ; end.
Ответы (1)
Как применить random вместо readln? program pr9; type mas = array[-10 ... 10] of integer; const n = 5; var s, i:integer; a:mas; begin writeln ('Номера четных отрицательных элементов:') ; s:=0; for i:=1 to n do begin readln (a[i]) ; end;
Ответы (1)
Помогите с ответом
помогите решить комплексни чыла z1=1-3i, z2=2+i
Нет ответа
1. Как с помощью двух вёдер объёмом 4 л и 11 л набрать 6 литров? 2. Как с помощью двух вёдер объёмом 5 л и 9 л набрать 7 л? 3. Как с помощью двух вёдер объёмом 3 л и 7 л набрать 5 л? 4.
Нет ответа
60 000 м (в квадрате) = ? а? га
Нет ответа
Упростите выражения: 1) - 36+m+24 2) n+42-13 3) 5,7-7,7+a 4) - 0,44+x-0,22 5) 3/8-0,375+k 6) m+5/9-2/3
Нет ответа
23 березня. Класна робота. Приклади№813. 82*67 55*74 78*39 75*34 Задача№815. Маса 1/2 кавуна станоаить 2 кг. 600 г. Яка маа 1/5 кавуна?
Нет ответа