Составьте программу, для подсчета дней, месяцев с температурой 15градусов, массив в программе сформировать с клавиатуры. pasckal abc.
143
479
Ответы на вопрос:
Const handsfree = false; nmax = 31; random_min = -20; random_max = 30; var a: array[1..nmax] of real; i, n, j: integer; k: integer; begin {ввод массива} if handsfree then n : = random(nmax - 5) + 5 else begin write('n = '); readln(n); end; writeln('данные массива: '); for i : = 1 to n do begin if handsfree then begin a[i] : = random(random_max - random_min) + random_min; write(a[i], ' '); end else readln(a[i]); end; writeln(); {подсчет элементов} k : = 0; for i : = 1 to n do if a[i] = 15 then k : = k + 1; writeln('quantity = ', k); end.
Var a,b,c: real; begin write('введите три числа'); read(a,b,c); a: = - a; b: = - b; c: = - c; writeln('ответ: ', a, ' ' , b, ' ', c); end.
Популярно: Информатика
-
miheeva7410.04.2021 18:14
-
котёнок13018.05.2023 01:51
-
ккккккааааатттттяяя29.01.2020 15:39
-
artemka2200a24.01.2022 06:09
-
dmmkuplinov07.12.2021 22:41
-
alinanazarova2017.06.2021 00:42
-
azateybaikal12.07.2020 23:50
-
tuiyty02.05.2022 15:04
-
super123jack03.10.2020 16:19
-
alinaalina06025.12.2020 08:43