Дан одномерный массив из n элементов в интервале [0,50] найти количество элементов в интервал [0,25] и количество элементов в интервал[40,50] (через процедуру)
296
317
Ответы на вопрос:
Var ar: array of integer; i,n: integer; procedure firstpr(ar: array of integer; n: integer); var i,k: integer; begin; for i: =1 to n do if ar[i]< =25 then inc(k); writeln(k); end; procedure secpr(ar: array of integer; n: integer); var i,k: integer; begin; for i: =1 to n do if (ar[i]> =40) and (ar[i]< =50) then inc(k); writeln(k); end; begin; randomize; readln(n); setlength(ar,n+1); writeln('array'); for i: =1 to n do begin; ar[i]: =random(0,50); write(ar[i]: 4); end; writeln; firstpr(ar,n); secpr(ar,n); end.
#include <iostream>
using namespace std;
int main() {
int a, b , c , d;
cin >> a >> b;
c = a / 2;
d = b + 30;
cout << c <<" "<< d;
}
///это на с++
Объяснение:
Популярно: Информатика
-
NiceBike211.05.2022 05:57
-
alinka66006619.11.2021 18:09
-
AnastasiaKT24.05.2023 13:07
-
Apostol137822.12.2020 03:09
-
alisalis29006.02.2023 04:53
-
olleandro04.08.2021 04:01
-
katya256216.07.2022 21:35
-
vadimminaev22818.04.2022 08:42
-
50601003.03.2020 16:34
-
kolazykov1102.10.2021 07:04