ОТВЕТ ЕСТЬ НА 1,2,3,4,7,8 ВОПРОС
1. Термин "информатика" возник в 60-х гг. XX в. во Франции для названия области, занимающейся автоматизированной обработкой информации с электронных вычислительных машин.
2. Информатика — это комплексная, техническая наука, которая изучает и систематизирует законы и приемы создания, сохранения, воспроизведения, получения, обработки и передачи данных средствами вычислительной техники, а также принципы функционирования этих средств и методы управления ними.
3. Важная особенность информатики – широчайшие приложения, охватывающие почти все виды человеческой деятельности: производство, управление, науку, образование, проектные разработки, торговлю, финансовую сферу, медицину, криминалистику, охрану окружающей среды и др.
4. Задачи информатики как науки составляют:
изучить структуру, общие свойства информации, исследовать законы и методы создания, преобразования, накопления, передачи и использования информации. систематизация приемов и методов работы с аппаратными и программными средствами вычислительной техники.
7.Наиболее обобщенными информационными процессами являются сбор, преобразование, использование информации. К основным информационным процессам, изучаемым в курсе информатики, относятся: поиск, отбор, хранение, передача, кодирование, обработка, защита информации.
8.Информационная деятельность человека – это деятельность, связанная с процессами получения, преобразования, накопления и передачи информации. ... Вместе с тем человечеству всегда приходилось решать задачи управления, накопления, обработки и передачи информации, опыта, знания.
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var min:=a.Min;
a.Transform(x->x<0?x*min:x); a.Println
end.
Пример
n= 15
-34 7 0 -48 4 42 35 14 -47 6 -29 43 46 40 -18
1632 7 0 2304 4 42 35 14 2256 6 1392 43 46 40 864
2. Популярное до сих пор в школах решение на TurboPascal 7.01 (1983г.)
uses Crt;
const
nn=100;
var
i,n,min:integer;
a:array[1..nn] of integer;
begin
ClrScr;
Randomize;
Write('n='); Read(n);
min:=100;
for i:=1 to n do begin
a[i]:=Random(101)-50;
Write(a[i],' ');
if a[i]<min then min:=a[i]
end;
Writeln;
for i:=1 to n do
if a[i]<0 then a[i]:=a[i]*min;
for i:=1 to n do
Write(a[i],' ');
Writeln;
ReadKey
end.