Помогите ?
Помогите !
Паскаль!
ИНФОРМАТИКА!
Составить программу , находящую сумму и произведение трёх чисел !
Дано число его удвоить и утроить составить программу в паскаль?
Дано число его удвоить и утроить составить программу в паскаль.
Помогите составить программы в паскале в 2 - х заданиях 5 вариант(в табличке13)?
Помогите составить программы в паскале в 2 - х заданиях 5 вариант(в табличке13).
Помогите составить программы для первых двух заданий срочно (вариант 5)в паскале?
Помогите составить программы для первых двух заданий срочно (вариант 5)в паскале.
Помогите составить программы для третьего и четвертого заданий срочно (вариант 5) в паскале?
Помогите составить программы для третьего и четвертого заданий срочно (вариант 5) в паскале.
Помогите?
Помогите!
Напишите пожалуйста блок - схему и программу для Паскаля!
Составьте пожалуйста программу на Паскале (2)?
Составьте пожалуйста программу на Паскале (2).
Только правильно!
Набрать в паскале программу флага помогите пожалуйста?
Набрать в паскале программу флага помогите пожалуйста.
Помогите составить программу в паскаль?
Помогите составить программу в паскаль!
Помогите составить эти программы на паскаль?
Помогите составить эти программы на паскаль.
На этой странице сайта вы найдете ответы на вопрос Помогите пожалуйста составить программу Паскаль 6n = 5 m = 4?, относящийся к категории Информатика. Сложность вопроса соответствует базовым знаниям учеников 10 - 11 классов. Для получения дополнительной информации найдите другие вопросы, относящимися к данной тематике, с помощью поисковой системы. Или сформулируйте новый вопрос: нажмите кнопку вверху страницы, и задайте нужный запрос с помощью ключевых слов, отвечающих вашим критериям. Общайтесь с посетителями страницы, обсуждайте тему. Возможно, их ответы помогут найти нужную информацию.
Написано в системе ПаскальАВС.
НЕТ
const n = 5 ; m = 4 ;
var A : array[1.
N, 1.
M] of integer ; max, min, n1, n2 : integer ;
begin
writeln('Исходный массив : ') ;
for var i : = 1 to n do begin for var j : = 1 to m do begin A[i, j] : = random(100) ; write(A[i, j] : 3) ; if (i = 1) and (j = 1) then min : = A[i, j] ; if A[i, j]max then begin max : = A[i, j] ; n2 : = i ; end ; end ; writeln ; end ;
writeln('min = ', min, ' ; max = ', max, ' ; n1 = ', n1, ' ; n2 = ', n2) ;
for var i : = 1 to m do swap(A[n1, i], A[n2, i]) ;
writeln('Преобразованный массив : ') ;
for var i : = 1 to n do begin for var j : = 1 to m do write(A[i, j] : 3) ; writeln ; end ;
end.