1. Для матрицы 3* 3 обнулить все элементы с четным значением. Результат вывести на экран. uses crt; const n=3; var a: array [1..n,1..n] of integer; x,y: integer; begin for x:=1 to n do begin for y:=1 to n do begin a[x,y]:=random(21)-10; write(a[x,y]:4); if a[x,y] mod 2=0 then a[x,y]:=0; end; writeln; end; writeln; for x:=1 to n do begin for y:=1 to n do write(a[x,y]:4); writeln; end; end.
2. Для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением. Результат вывести на экран. uses crt; const n=3; var a: array [1..n,1..n] of integer; x,y: integer; begin for x:=1 to n do begin for y:=1 to n do begin a[x,y]:=random(21)-10; write(a[x,y]:4); end; writeln; end; writeln; for x:=1 to n do for y:=1 to n do if a[x,y]=0 then writeln(x,',',y); end.
По бокам коробки кругленькие кнопки. Тут же рядом, в уголке ручка с трубкой на шнурке. Без языка говорит, прекрасно слышит без ушей.(телефон) Под крышей — четыре ножки, а на крыше — суп да ложки.(стол) Маленькая, плоская, в компьютер вставляется, Тут же сказки, и подсказки, даже фото появляются!( Дискета) С листьями, но не растение.Сшита, но не одежда.Много о людях знает, но не детектив.(Записная книжка) Маленькие зверьки, серенькие шубки. Длинные хвосты, черненькие глазки, остренькие зубки.(мышь) Про школу не знаю
44,2+25,5=71,7
455-64=371
все это в столбик