сервис вопросов и ответовКак получить матрицу
5-9 класс|
|
1 0 ... 01
0 1... 10
. . . .
. . . .
. . . .
0 1 ...10
1 0 ...01
0
коля223
19 нояб. 2016 г., 10:41:20 (7 лет назад)
Viktoriov
19 нояб. 2016 г., 13:32:18 (7 лет назад)
Сделайте замену переменных с условиями.
Program asd;
USES crt;
Const n=4;
Var A:array[1..n,1..n] of integer;
i,j,s:integer;
BEGIN
Сlrscr;
Randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
A[i,j]:=ABS(Random(2)-1);
Write(A[i,j]:4);
end;
Writeln;
end;
Writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin If A[i,j]=0 then A[i,j]:=1
else
A[i,j]:=0;
Write(A[i,j]:4);
end;
Writeln;
end;
END.
Ответить
Другие вопросы из категории
Напишите пожалуйста, как сделать и оформить в Паскале с условиями (ветвление). Даны три действительных числа. Возвести в квадрат те из них, значения
которых не отрицательны, и в четвёртую степень - отрицательные.
сравнить межу собой два интернет браузера
причем нужно сделать скрины
до завтра нужжно !!!!
Читайте также
Какое значение будет принемать значение Y после выполнения фрагментов программы: 1. var x,y: INTEGER; BEGIN y:=0; for x:=1
to 9 do
y:=y+x;
writeln(y=,y);
END.
2.var x,y: INTEGER;
BEGIN
y:=0;
for x:=10 downto 5 do
y:=y+1
writeln(y=,y);
END
3. var x,y: INTEGER;
BEGIN
y:=1;
x:=15;
while x>5 do
begin
x:=x-3;
y:=y*x;
end;
writeln(y=,y)
END.
4. var x,y: INTEGER;
begin
y:=1;
x:=10;
repeat
y:=y*x+x;
x:=x-2;
until x<0;
writeln(y=,y);
end.
пожалуйста напишите подробное решение и как получаются ответы
Здравствуйте!Помогите пожалуйста с информатикой! 1.В ящике имеется 3 чёрных и 5 белых шаров.Какое наименьшее число шаров нужно взять из ящика ( не
заглядывая в него), чтобы среди вытянутых шаров:. 1)Оказался хотя бы 1 чёрный 2)Оказался хотя бы 1 белый 3)Оказались хотя бы 2 чёрных 4)Окаазались хотя бы 2 белых Если можно с решением,логическим рядом. 2. В одной книге было написано 100 следующих утерждений. "В этой книге роно одно неверное утверждение" "В этой книге ровно два неверных утверждения" ............................................................................................ "В этой книге ровно сто неверных утверждений. Какое из этих утерждений верное? Судя по моим мыслям,это явно не 3, тогда это получается правда, что противоречит смыслу предложения. Тогда какое получается? Я не знаю.Помогите пожалуйста. Напишите всё с решением пожалуйста. Ах да,чуть не забыла. Если кто -то знает бесплатный решебник ( без всяких файлообменников) напишите пожалуйста.
Напишите пояснение к номерам (как получили ответы)
*ответы есть в задании
Вы находитесь на странице вопроса "Как получить матрицу", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.