3. текст программы с ошибкой представлен ниже: program ni; var a: array [1..81 o£ integer; s, l: integer; begineor k = 1 to 8 do readln (a[k]); s = 0; for i: =1 to 3 doif a[k] < 0 then s : = s = a[1]; writeln(s)каким окажется ответ после исполнения этой программы,качестве элементов массива будут введены числа 1,2, 3, 4, -1, -2, -3, 4? как исправить программу, чтобы она решала ?
var
a,b,c,t,z:integer;
m,k,l:string;
label 1,2,3,4;
begin
writeln ('Введите число от 1-го до 100');
repeat read(a) until (a>=0)and(a<=100);
b:=a div 10;
c:=a mod 10;
if a=100 then goto 2;
if a=0 then goto 1;
if (a>9) and (a<20) then goto 4;
case b of
2:m:='Двадцать ';
3:m:='Тридцать ';
4:m:='Сорок ';
5:m:='Пятьдесят ';
6:m:='Шестдесят ';
7:m:='Семдесят ';
8:m:='Восемьдесят ';
9:m:='Девяносто '; end;
case c of
1:k:='один';
2:k:='два';
3:k:='три';
4:k:='четыре';
5:k:='пять';
6:k:='шесть';
7:k:='семь';
8:k:='восемь';
9:k:='девять';
end;
writeln (m,k);
goto 3;
2:writeln ('Сто');
goto 3;
1: writeln ('Ноль');
goto 3;
4: if a=10 then writeln ('Десять');
if a=11 then writeln ('Одиннадцать');
if a=12 then writeln ('Двенадцать');
if a=13 then writeln ('Тринадцать');
if a=14 then writeln ('Четырнадцать');
if a=15 then writeln ('Пятьнадцать');
if a=16 then writeln ('Шестнадцать');
if a=17 then writeln ('Семнадцать');
if a=18 then writeln ('Восемнадцать');
if a=19 then writeln ('Девятнадцать');
3:end.
А вот жёлтый светофильтр используется исключительно при цветной печати. Правда, толку от него при этом немного. Потому что получаемый при такого прибора световой поток настолько мал, что разве что определять своё положение в пространстве. Поэтому раньше, при ручной печати цветных фотографий, фотографы предпочитали работать в полной темноте.
Плёнка, кстати, даже чёрно - белая, при красном фонаре однозначно будет засвечена.