1) Наблюдать это: смотреть и слушать. 2) Сбор информации - это наблюдение и записывание. Представить информацию на носителе - это зарисовать или записать. 3) * это цветок (листья, на которые падает дождь) * это собачка (два уха, 4 лапки, хвост, 2 глаза и черный носик) получения информации: - наблюдение - беседа - измерение - исследование - чтение 5) Действия с информацией: изображать схему, рисовать, записывать, наблюдать, запоминать, мыслить, думать. Действия с предметами: рубить дрова, резать картофель, готовить суп. 6) А) бинокль, микроскоп, лупа Б) линейка, транспортир, термометр
Uses crt; var a,b:array[1..100] of integer; i,j,k,n:integer; procedure rmassr; begin for i:=1 to n do begin a[i]:=random(10); end; end; procedure rmassy; begin for i:=1 to n do begin readln(a[i]); end; end; procedure rmass(); begin for i:=1 to n do begin write(a[i],' '); end; end; procedure newmass; begin for i:=1 to n do begin if a[i] > 0 then b[i]:=a[i]; end; for i:=1 to n do begin j:=j+b[i]; end; writeln('summa = ',j); end; begin clrscr; randomize; write('длина массива '); readln(n); write('1-random; 2-в ручную'); readln(k); if k = 1 then rmassr() else rmassy(); rmass(); writeln(); newmass(); readln end.
2) Сбор информации - это наблюдение и записывание.
Представить информацию на носителе - это зарисовать или записать.
3) * это цветок (листья, на которые падает дождь)
* это собачка (два уха, 4 лапки, хвост, 2 глаза и черный носик)
получения информации:
- наблюдение
- беседа
- измерение
- исследование
- чтение
5) Действия с информацией: изображать схему, рисовать, записывать, наблюдать, запоминать, мыслить, думать.
Действия с предметами: рубить дрова, резать картофель, готовить суп.
6) А) бинокль, микроскоп, лупа
Б) линейка, транспортир, термометр
var a,b:array[1..100] of integer; i,j,k,n:integer;
procedure rmassr;
begin
for i:=1 to n do begin
a[i]:=random(10);
end;
end;
procedure rmassy;
begin
for i:=1 to n do begin
readln(a[i]);
end;
end;
procedure rmass();
begin
for i:=1 to n do begin
write(a[i],' ');
end;
end;
procedure newmass;
begin
for i:=1 to n do begin
if a[i] > 0 then b[i]:=a[i];
end;
for i:=1 to n do begin
j:=j+b[i];
end;
writeln('summa = ',j);
end;
begin
clrscr;
randomize;
write('длина массива '); readln(n);
write('1-random; 2-в ручную'); readln(k);
if k = 1 then
rmassr()
else rmassy();
rmass();
writeln();
newmass();
readln
end.