Program filework;
var f:text;
i, n, count:integer;
l:string;
arr:array of real;
answ:real;
begin
assign(f, 'C:\Users\HO4HOU_TTaPKuPucT\Desktop\test_file.txt'); // В кавычках путь к файлу
reset(f);
while not eof(f) do begin
readln(f, l);
if StrToFloat(l) > 0 then
Inc(count);
end;
SetLength(arr, count);
reset(f);
i:=0;
while not eof(f) do begin
readln(f, l);
if StrToFloat(l) > 0 then begin
arr[i]:=StrToFloat(l);
Inc(i);
end;
end;
answ:=arr[0];
for i:=1 to arr.Length - 1 do
if arr[i] < answ then answ:=arr[i];
writeln(answ);
close(f);
end.
P.S. Программа работает с неограниченным числом положительных чисел в файле
N=
N - палитра (количество цветов)
i - кол-во бит на пиксель. По задаче - 3 бита.
N=
N=8
Ответ:
9
Объяснение:
ROW(C2) - эта функция определяющая порядковый номер ячейки C2 по строкам, то есть 2 (вторая строка)
COLUMN(B3) - эта функция определяющая порядковый номер ячейки В3 по столбцам, то есть 2 (В второй столбец)
SQRT(B3) - эта функция определяющая квадратный корень числа из ячейки В3=4, то есть SQRT(4)=√4=2
AVERAGE(B1; SQRT(B3)) - эта функция вычисляющая среднее арифметическое чисел B1; SQRT(B3), которое математически равно
(B1 + SQRT(B3))/2=(5+2)/2=7/2=3,5
Тогда
=ROW(C2)+AVERAGE(B1;SQRT(B3))*COLUMN(B3) = 2+3,5*2=2+7=9
В блоке объявления переменных (var) тип переменной (в данном случае byte) объявляется после двое точия, а не знака равно
То есть вместо Var h=byte; нужно Var h:byte;
Program gt;
var a,i,n,max:longint;
begin
read(N);
max:=0;
for i:=1 to n do
begin
read(A);
if(a>max)then max:=a;
end;
if(max=0)then writeln('положительных чисел нет')else writeln(max);
end.