Неа
Написать приложение Windows, которое по заданным в файле исходным данным строит
график или столбиковую диаграмму.
Приложение, должно позволять работать с командами Input data, Choose, Line, Bar,
Quit.
При запуске приложения сделать недоступной команды Line и Ваг. При выборе
команды Quit завершать работу приложения. При выборе команды Input data читать из
файла исходные данные (файл сформировать самостоятельно). При выборе команды
Choose открывать окно диалога, содержащее:
список для выбора цвета графика типа TListBox;
группу из двух переключателей (Line,-Bar) типа TRadioGroup;
кнопку типа TButton.
Обеспечить возможность ввода цвета и выбора режима: построение графика (Line) или
столбиковой диаграммы (Ваг). После указания параметров сделать доступной
соответствующую команду меню.
По команде Line или Ваг в главном окне приложения строить выбранным цветом график
или диаграмму, причем окно должно содержать заголовок графика или диаграммы,
наименование и градацию осей, а изображение — занимать все окно и масштабироваться
при изменении размеров окна.
СКИНЬТЕ ДОКУМЕНТОМ. DELPHI
arr : array [1..30] of integer;
sum, count, i, a : integer;
begin
read (a);
for i := 1 to 30 do read (arr[i]);
count := 0; sum := 0;
for i := 1 to 30 do
begin
if arr[i] < 0 then sum := sum + arr[i]
else if (arr[i] > 0) and (arr[i] <= a) then count := count + 1;
end;
writeln (sum, ' ', count);
end.
var
arr : array [1..30] of integer;
i : integer;
begin
for i := 1 to 30 do read (arr[i]);
for i := 30 downto 2 do
if arr[i] * arr[i - 1] < 0 then // проверка знака
begin
writeln (i - 1);
halt; // Остановка программы
end;
writeln ('-1'); // Таких нет
end.