Написать программу которая в двумерном массиве заменяет четные числа на 99
102
296
Ответы на вопрос:
Program n_1; var n, i: integer; arr: array [1..10000] of integer; beginwrite ('введите размер массива: '); readln (n); for i : = 1 to n do beginwrite ('arr[',i,'] : = '); readln (arr[i]); if not(odd(arr[i])) then arr[i] : = 99; end; for i : = 1 to n do //выводит массив на экранwriteln ('arr[',i,'] = ', arr[i]); end.
Uses crt; const n=10; var a: array [1..n] of integer; x,k: integer; begin for x: =1 to n do begin a[x]: =random(5); writeln('a[',x,']: ',a[x]); end; for x: =1 to n-1 do if a[x]=a[x+1] then inc(k); if k> 0 then writeln('есть одинаковые соседние элементы.') else writeln('одинаковых соседних элементов нет.'); end.
Популярно: Информатика
-
eva7777214.06.2021 20:20
-
GTmoonsoonall03.10.2020 16:57
-
Екатерина2087630.03.2023 07:59
-
vovaonuchko05.08.2021 09:23
-
SashaZorikhina30.11.2021 22:30
-
nutadobrenkaya26.01.2020 06:17
-
zombovizor20.09.2022 09:43
-
nurasylmahambet23.03.2021 20:05
-
Кисуня11111111130.12.2020 03:23
-
фваывнгар30.06.2020 11:32