ОМ
Оксана Максименко
Информатика, Паскаль
Здравствуйте, помогите пожалуйста с задачей в Паскале
Нужно вывести массив, состоящий из нулей, на котором единицами будет нарисован плюс
Заранее спасибо
Здравствуйте, помогите пожалуйста с задачей в Паскале
Нужно вывести массив, состоящий из нулей, на котором единицами будет нарисован плюс
Заранее спасибо
паскаль не хочу вспоминать, дурацкий язык, на С++ могу
Например массив 7 х 7 и в центре "+"
program PR;
var
A:array[1..7,1..7] of byte;
I,J:byte;
begin
for I:=1 to 7 do J:1 to 7 do A[I,J]:=0; {сначала все "0"}
for I:=1 to 7 do A[I,4]:=1;
for J:=1 to 7 do A[4,J]:=1;
for I:=1 to 7 do for J:=1 to 7 do writeln(A[I,J]);
readln;
end.
Я не проверяла, т. ч. проверь обязательно.