|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Из паскаля в делфи
Дан целочисленный вектор А(n). Подсчитать количество нулевых элементов вектора, предшествующих последнему максимальному элементу.
Количество вводится в edit1, матрица должна вводиться в компонент StringGrid1, количество нулевых элементов должно выводиться в Edit2 Что нужно изменить? Код:
cоnst nmax = 100; var a:array[1..nmax] of real; mx:integer; count:integer; i,n:integer; begin write('n='); readln(n); for i:=1 to n do begin write('[',i,']='); readln(a); end; writeln('BeKTop:'); mx:=1; for i:=1 to n do begin if a>=a[mx] then mx:=i; write(a); end; writeln; count:=0; Writeln('# of Max:',mx,' Value: ',a[mx]); for i:=1 to mx do if a=0 then count:=count+1; writeln('Count of zero before Maximum:',count); readln; end. Последний раз редактировалось Admin, 21.05.2013 в 12:49. |
#2
|
||||
|
||||
Совсем все печально с программированием?
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
Цитата:
|