Const N = 5; M = 3; Var X:array[1..N,1..M] of integer; i,j:integer; S:real; Begin Randomize; WriteLn('Исходный массив:'); For i:= 1 to N do Begin For j:= 1 to M do Begin X[i,j]:=random(41)-20; Write(X[i,j]:3,' ') End; WriteLn End; WriteLn('Новый массив:'); For i:= 1 to N do Begin For j:=1 to M do Begin if X[i,j] mod 5 = 0 then X[i,j]:=0; S:=S+X[i,j]; Write(X[i,j]:3,' ') End; WriteLn End; WriteLn('S = ',S); ReadLn End.
Использовать Чертежник алг нач опустить перо М;И;Р сместиться на вектор(1,0) Р;И;М сместиться на вектор(1,0) М;И;М кон
алг Р нач опустить перо сместиться на вектор(0,3) сместиться на вектор(1,0) сместиться на вектор(0,-1) сместиться на вектор(-1,-0.5) поднять перо сместиться на вектор(2,-1.5) кон
алг И нач опустить перо сместиться на вектор(0,3) сместиться на вектор(0,-3) сместиться на вектор(1.5,3) сместиться на вектор(0,-3) поднять перо сместиться на вектор(1,0) кон
алг М нач опустить перо сместиться на вектор(0.75,3) сместиться на вектор(0.75,-3) сместиться на вектор(0.75,3) сместиться на вектор(0.75,-3) поднять перо сместиться на вектор(1,0) кон
2 - запах котлет, ванильного мороженого, нашатыря
3 - вкус лимона, апельсина, горького перца
4 - фотография на старых фотоаппаратах (пленочных), аналоговый сигнал при разговоре по проводному телефону, данные при съемке показаний кардиограммы
5 - слышать музыку, шелест листьев, крик
6 - картины, рисунки, схемы, диаграммы
7 - осязание кожей холода, укола, ожога