Var a: array[1..100] of integer;
i, k,n: integer;
begin
writeln('Введите n:');
readln(n);
writeln('Массив:');
for i := n downto 1 do
begin
a[i] := random(100);
write(a[i]:4);
end;
writeln;k:=0;
for i := 1 to n do
if a[i] mod 2 <> 0 then
begin
writeln('Номер первого нечетного = ', i);
k:=1;
break;
end;
if k=0 then
writeln('В массиве нет нечетных элементов');
readln;
end.
Текстовое сообщение расчитывается по ф-е:
А=S*i
i - кол-во бит на 1 символ (для русского яз. около 5)
S=Кстраниц*Кстрок на стр-це*Ксимволов на стр
1.Анализированные
синтезированные
2.Понятие "информационная культура" характеризует одну из граней культуры, связанным аспектом жизни людей.
В широком смысле под информационной культурой понимают совокупность принципов и реальных механизмов,обеспечивающих позитивное взаимодействие этнических и национальных культур, их соединение в общий опыт человечества.