# список чисел будет в переменной listlist = [10, 12, 1, 3, 5, 16, 16, 0, -2];
# находим самое большое число используя функцию max и помещаем его в переменную max_elementmax_element = max(list)
print ("max element: ", max_element)#чтобы узнать индекс используем функцию indexprint ("index: ", list.index(max_element));
Var a,k:integer;
begin
a:=-1;
k:=-1;
while a<>0 do begin
read(a);
if a mod 7 = 0 then k+=1;
end;
writeln(k);
<span>end.</span>
Что значит из строки? Формулируйте лучше. Можно делать через обычный массив, примерно так
var
В одном байте 8 бит, в одном килобайте 1024 байт, в одном мегабайте 1024 килобайт, то есть 1 мегабайт это 8*1024*1024 бит