Задание:
Использовать подпрограммы (ввода, вывода, обрабатывающей части). Дан массив целых чисел А[M,N], где M,N<=10. Вставить последнюю строку после строки, в которой находится заданное число К.
Сделала, но работает некорректно. Есть подозрение, что напутала с переменными. И ещё хотелось бы, чтобы выводился и изначальный массив, и изменённый.
uses crt;
type ma=array[1..10,1..10] of integer;
var m:ma;
i,j,n,a:integer;
k:longint;
BEGIN
randomize;
Write('Введите K: ');
readln(k);
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
m[i,j]:=random(9);
end;
end;
for i:=1 to 10 do
begin
n:=0;
for j:=1 to 10 do
begin
if (m[i,j]=1) then n:=1;
write (m[i,j], ' ');
end;
if (n=1) then
begin
writeln(' ');
for a:=1 to 10 do
begin
write(m[10,a], ' ');
end;
end;
writeln;
end;
END.
Примечание:
Вставить строку т.е. напечатать её после каждой строки, где есть введённое число К.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.