//Видимо, это одна задача, так как "изменения" во второй не указаны //Pascal ABC.NET v3.1 сборка 1172
Const n=20;
Var ar:array[1..n] of integer; i:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(10)-3; write(ar[i]:4); if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0; end; writeln; writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end.
Понятие информации и её виды» - Виды информации по представления. Перечислите известные вам измерительные приборы. Информация. Виды информации. Определите вид информации (по представления). Определите вид информации, получаемой девочкой. Заполните пустые клетки таблицы. Виды информации (по восприятия). Что такое информация. Физ.минутка. Информацию мы получаем из разных источников. Подведение итогов урока.
«Классификация информации» - Виды информации по форме представления. Информация. Виды информации по ее значению. Каналы передачи информации. Понятие информации. Человек получает информацию с органов чувств. Заполните таблицу по образцу. Виды информации по восприятия. Передача информации. Контрольные вопросы. Как мы воспринимаем информацию.
«Виды и свойства информации» - Визуальная. Свойства информации. По восприятия. Письмо. С обоняния. С слуха. С языка. Соответствие. Закрепление пройденного. Аудиальная. По форме представления. Виды и свойства информации. С зрения. По субъектам обмена. Органы чувств человека. С кожи. Виды информации. Достаточность. Вступительный экзамен. Свойство информации.
«Виды представления информации» - Разъяснение. Единицы измерения информации. Представление информации. Семантическая теория. Информация. Количество информации в тексте. Информационные процессы. Язык как представления информации. Информационное общество. Свойства информации. Применение информатики и компьютерной техники. Число равновероятных событий.
«Основные виды информации» - Мозг управляет человеком. Звуковая (слуховая) информация. Тактильная информация. Зрительная информация. Информация. Вопросы для повторения. Вкусовая информация. Обонятельная информация. Мы живём в мире информации. Знания.
//Pascal ABC.NET v3.1 сборка 1172
Const
n=20;
Var
ar:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(10)-3;
write(ar[i]:4);
if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0;
end;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
Пример работы программы:
First array: 2 -3 5 6 -3 -3 1 -2 -3 1 3 -3 4 -3 1 -1 6 6 2 3
Final array: 4 0 10 12 0 0 2 0 0 2 6 0 8 0 2 0 12 12 4 6