Ответы на вопрос:
Ну например школьный дневник. он же описывает объекты (предметы) и их переменные параметры (оценки) . прекрасный пример
Два варианта : с массивом и без с) var a: array[1..100] or integer; n[коммент от автора: кол-во дней],k,i: integer; begin readln(n) [коммент от автора: можно вручную записать если не дается]; for i: =1 to n do read(a[i]); k: =0; for i: =1 to n do if a[i]< 0 then k: =k+1; writeln(k); end. без массива var n,k,c,i: integer; begin readln(n); k: =0; for i: =1 to n do begin c: =0; readln(c); if c< 0 then k: =k+1; end; writeln(k); end.
Популярно: Информатика
-
omarova0625.10.2020 01:38
-
aliya07101613.02.2022 02:19
-
marsianin12104.06.2020 17:45
-
КристинаШпиц14.06.2023 17:33
-
кот93110.02.2021 01:50
-
gordeevlogain206.01.2023 11:42
-
маняня404.01.2022 16:03
-
ladyviktoria25.07.2022 19:50
-
anaragaitova102.02.2021 19:04
-
Cat208106.09.2021 11:16