Книги - текстовая информация
Картины - графическая информация
Игра на музыкальных инструментах - аудио информация
Var i,k:integer; s:real; a:array[1..7] of real;beginclrscr;k:=0; s:=0;writeln('Введите среднюю дневную температуру с понедельника по воскресенье:');for i:=1 to 7 do begin Write(i,'-я:'); readln(a[i]); if a[i]<0 then k:=1; s:=s+a[i]; end; Writeln('Средняя температура за неделю составила ',s/7, ' градусов'); if k=1 then writeln('Были заморозки');end.
Const
N = 8;
Var
A:array[1..N] of integer;
i,iMax:integer;
Begin
Randomize;
Write('Исходный массив:');
iMax:=1;
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i] > A[iMax] then iMax:=i;
End;
WriteLn;
WriteLn('Max = ',A[iMax]);
WriteLn('iMax = ',iMax);
End.
Пират,программист,взломщик,кракер...