Проанализируй диаграмму и заполни таблицу. A B
1 Товар Количество товара
2 Товар "W" 126
3 Товар "X"
4 Товар "Y"
5 Товар "Z" 126
106
351
Ответы на вопрос:
Var a: array[1..15] of integer; i, sum, count: integer; begin for i: =1 to 15 do readln(a[i]); sum : = 0; count : = 0; for i: =1 to 15 do if a[i] > 0 then begin sum : = sum + a[i]; inc(count); end; writeln(sum, ' ', count); end.
Популярно: Информатика
-
жуля727.09.2022 05:50
-
ikujtdhc29.06.2023 10:02
-
Mary345602.03.2020 18:04
-
Marinaaa0105.09.2022 21:42
-
annalol0013.12.2022 04:05
-
Belatrissa1106.03.2023 08:14
-
сева16723.11.2022 08:05
-
sssaaa426.06.2023 17:24
-
sevtour02.01.2022 00:50
-
1DiamonDragon108.04.2022 14:19