For N:= 1 to 10 do
if mas[N,N]> 0 then
s:=s+mas[N,N];
Дублирую свой же ответ от сюда
znanija.com/task/3558687 Дано: Количество пикселей
(пикселей), время t=64 (сек)Начну с того, что сама задача не верна, либо в ней была опечатка. Обосную, даже если мы возьмём максимальное количество цветов на один пиксель, предложенных в ответах, а это 256. Мы получим, что на 1 пиксель требуется p=8 (Бит)=1 (Байт) (2^{8}=256) памяти, а объём V изображения равен
(Байт)=64(кБайт), т.е. скорость при заданных параметрах будет равна 1 Кбайт/с, но ни как не 8 Мбит/с..
Ответ:
var i,k:integer;
a:array [1..8] of integer;
begin
write('Массив');
for i:=1 to 8 do
begin
a[i]:=random (75)-50;
write(a[i]:4);
if (a[i]<13) and (a[i] mod 8 = 0 ) then k:=k+1
end;
writeln;
writeln('Количество элементов, меньших 13 и кратных 8 равно ',k);
end.
Компьютер наконец-то приобретёт элементы интеллектуальности.
Общение с ним максимально будет приближено к человеческому языку.
Виртуальность приобретёт реальные черты, предметы станут ощутимыми, окружение станет объёмным и будет полностью соответствовать человеческим органам чувств.
Но никогда искусственный интеллект не превзойдёт человека.
Любая биологическая клетка неизмеримо более сложна, чем самый заумный компьютер.
Метод обработки информации у будущих компьютеров, как и в природе, станет аналоговым, а не как сейчас, цифровым.
В природе цифровых процессов не существует, а только аналоговые.