Қабылдау әдісі бойынша:
Көрнекілік - көру органдарымен қабылданады.
Дыбыс - есту органдарымен қабылданады.
Тактильді - сезімтал рецепторлармен қабылданады.
Olfactory - иісті рецепторлар қабылдаған.
Дәмі - дәмдік бүршіктер арқылы қабылданады.
Таныстыру формасына сәйкес:
Мәтін - тіл таңбаларын көрсетуге арналған таңбалар түрінде беріледі.
Сандық - математикалық әрекеттерді білдіретін сандар мен белгілер түрінде.
Графикалық - кескін, нысан, графика түрінде.
Дыбыс - ауызша немесе дыбыстық жолмен тілдік токендерді жазу және беру түрінде.
Бейне ақпарат - бейнежазба түрінде беріледі.
Кездесу бойынша:
Бұқаралық ақпарат - тривиалды ақпараттан тұрады және қоғамның көпшілігіне түсінікті ұғымдардың жиынтығымен жұмыс істейді.
Арнайы - қолданылған кезде ақпараттың көп бөлігі түсінбеуі мүмкін, бірақ таралған әлеуметтік топта қажет және түсінікті ақпарат берілетін белгілі бір тұжырымдамалар жиынтығы бар.
Құпия - адамдардың тар шеңберіне және жабық (қорғалған) арналар арқылы беріледі.
Жеке (жеке) - популяциядағы әлеуметтік мәртебе мен әлеуметтік өзара әрекеттесудің түрлерін анықтайтын жеке тұлға туралы ақпарат жиынтығы.
Мәні бойынша:
Нақты - белгілі бір уақытта құнды ақпарат.
Сенімді - сенімді көздерден бұрмаламай алынған ақпарат.
Айқын - ақпарат көзделетін адамға түсінікті тілде беріледі.
Толық - дұрыс шешім қабылдауға немесе түсінуге жеткілікті ақпарат.
Пайдалы - ақпараттың пайдалылығын ақпарат алу субъектісі оны пайдалану мүмкіндіктерінің көлеміне байланысты анықтайды.
Шындығында:
Рас
Жалған.
program Proizv;
const
Di = 8; // размерность массива, можно менять на любое другое строки
Dj = 10; // а здесь столбцы
var
A: array [1..Di, 1..Dj] of Integer;
i, j, p: Integer;
begin
Randomize;
for i := 1 to Di do begin
WriteLn;
for j := 1 to Dj do begin
A [i, j] := Random (21) - 3;
Write (A [i, j] :3, ' ');
end;
end;
p := 1;
for i := 1 to Di do begin
if i mod 2 = 0 then // если строка четная то пропускаем
Continue;
for j := 1 to Dj do begin
if A [i, j] < 0 then // перемножаем только отрицательные значения
p := p * A [i, j];
end;
end;
WriteLn;
WriteLn ('Произведение = ', p);
ReadLn;
end.
Объяснение:
для упрощения считаем, что хотя бы одно требуемое число будет найдено. Если таких чисел найдено не будет, то результат произведения будет равен 1.