Var
i,count:integer;
h: array [1..20] of integer;
begin
count:=0;
writeln('Введите элементы');
for i:=1 to 20 do
read(h[i]);
for i:=1 to 20 do
if h[i]>0 then
count:=count+1;
writeln('Количество нулевых элементов ', count)
end.
Во вложении архив с проектом программы. Сайт не позволяет загружать файлы архивов, поэтому изменил расширение.
1. Сохраните файл вложения на диск
2. Измените расширение файла с .pdf на .7z
3. Распакуйте архив, должно быть 4 файла:
- supermarket.dpr
- supermarket.exe
- unit1.pas
- unit1.dfm
Проект сделан на Delphi 2007, открывать нужно dpr файл, остальное создается автоматически.
Привет!
Тематика это: Тема о которой идёт речь, допустим говорят два повара, они говорят о еде, тематика: готовка еды
А в свою же очередь аудитория это те люди которые слушают, допустим есть ТВ канал, у него есть аудитория ( например 5 миллионов человек ). Аудитория делится на группы:
0+ Все
6+ От 6 лет
12+ От 12 лет
16+ От 16 лет
18+ От 18 лет
Так же, в соответствии с законом РФ, указывать рекомендованный возраст, это называют так:
0+ Для всех
6+ Для детей
12+ Для подростков
16+ Для тех кому исполнилось 16 лет ( Или же см. обозначение 12+ )
18+ Запрещено для детей
Рост. Это помоему а как правильно незнаю
Три ошибки, одна грубая.
Сравни своё решение и моё. (для Pascal ABC Net)
program prim; var a: array [1..10] of integer; i, z, max, min,nommax,nommin: integer; begin for i:=1 to 10 do a[i]:=Random(101); writeln (' исходный массив:'); for i:=1 to 10 do write (a[i], ' '); writeln; max:= a[1]; for i:=2 to 10 do if a[i]>max then begin max:= a[i];nommax:=i; end; writeln ('максимальный элемент=', max); min:= a[1]; for i:=2 to 10 do if a[i]<min then begin min:= a[i];nommin:=i; end; writeln ('минимальный элемент=', min); z:=a[nommin]; a[nommin]:=a[nommax]; a[nommax]:=z; writeln (' полученный массив'); for i:=1 to 10 do write (a[i], ' '); writeln; end.
