Иван занимается л.отлетикой Андрей-футболом Алексей-хоккеем Петр-баскетболом!
1,5мин=90с
512кбит/с×90с=46080кбит
46080кбит/8=5760кбайт=5,76мбайт
Procedure sumd;
var s,n: integer;
begin
s:=0; n:=0;
repeat
s:=s+n;
read(n);
until n<0;
writeln('сумма: ',s);
end;
// сновная программа
begin
assign(input,'input.txt');
sumd;
end.
файл input.txt: 11 15 21 13 -5
сумма: 60
Var
a: array[1..10]of integer;
i, k, n: integer;
begin
Writeln('Исходный массив:');
Randomize;
for i := 1 to 10 do
begin
a[i] := Random(51) - 25;
Write(a[i], ' ');
end;
Writeln;
n := 0;
k := 0;
for i := 10 downto 1 do
if a[i] > 0 then
begin
k := k + 1;
if k = 2 then n := i;
end;
if k = 0 then
Writeln('В массиве нет положительных элементов!')
else
Writeln('Предпоследний положительный элемент: a[', n, '] = ', a[n]);
Readln;
end.
Цветное изображение на экране складывается из ПИКСЕЛЕЙ, каждый пиксель отвечает за свой цвет и из этих цветов собирается картинка