Вас прошу написать программу.написать программу- 1)с генератора случайных чисел создать н числа в диапазоне с [-50; 50](длину массива н надо ввести с клавиатуры) 2)надо вывести сделанный массив на экран 3)нужно вычислить и вывести,какое количество парных чисел 4)и вывести на экран все парные числа. вас прошу , нужно до завтра сделать.если можете мне, .
200
266
Ответы на вопрос:
Program gt; var a: array[1..100000]of integer; i,h,j,k,p: integer; begin randomize; readln(h); for i: =1 to h do begin a[i]: =random(101)-50; write(a[i],' '); end; writeln; for i: =1 to h-1 do for j: =1 to h-1 do begin k: =a[j+1]; if(a[j]> a[j+1])then begin a[j+1]: =a[j]; a[j]: =k; end; end; p: =0; k: =1; for i: =2 to h do begin if(a[i]=a[i-1])then k: =k+1; if(a[i]< > a[i-1])or(i=h)then begin if(k> =2)then begin p: =p+1; writeln(a[i-1],' ',a[i-1]); end; k: =1; end; end; writeln(p,' кол-во парных чисел без повторений'); end.
Var a: integer; begin readln(a) if a: =1 then writeln('1 - один'); if a: =2 then writeln('2 - два'); if a: =3 then writeln('3 - три'); if a: =4 then writeln('4 - четыре'); . .{по аналогии} end. 2)абсолятно то же самое что и в предыдущем номере, просто тепрь писать 1 - понедельник, 2 - 3)var a: integer; if a: =1 then writeln('sharik'); if a: =2 then writeln('kot'); if a: =3 then writeln('fedor'); if a: =4 them writeln('pechkin'); end. 4) и 6) выполняются по аналогии. если не понимаешь, я объясню в комментариях.
Популярно: Информатика
-
ruzhejnickovan07.04.2023 13:47
-
Fox111413.05.2020 04:43
-
Den1ska426.01.2022 18:35
-
GAGHHy28.05.2021 06:23
-
nitkind30.03.2020 19:58
-
alina192322.11.2020 00:56
-
valeria57503.06.2021 05:17
-
dangoreh02.06.2020 23:44
-
gsajhja18.04.2023 06:08
-
Tima90830.03.2021 14:17