Pascal abc. дан одномерный массив (вводится с клавиатуры). преобразовать массив таким образом, чтобы сначала располагались все элементы равные 0, а потом все остальные.
216
470
Ответы на вопрос:
Program massiv; const n = 5; var a: array [1..n] of integer; tmp, c, i: integer; begin writeln('введите ', n, ' чисел через пробел'); for i : = 1 to n do read(a[i]); c : = 1; for i : = 1 to n do if a[i] = 0 then begin tmp : = a[c]; a[c] : = a[i]; a[i] : = tmp; c : = c + 1; end; writeln('результат: '); for i : = 1 to n do write(a[i], ' '); readln; end.
var i,x:integer;
begin
i:=1;
while i<>0 do
begin
readln(i);
if i mod 10 = 7 then x:=x+1;
end;
write(x);
end.
Объяснение:
Популярно: Информатика
-
дима564612.06.2022 21:57
-
Gødzilla08.02.2020 00:44
-
killbestrong08.02.2022 17:47
-
rororo520916.11.2021 05:24
-
Neckbeardicus06.06.2022 11:23
-
SHERBINADARYA0019.04.2020 17:20
-
YaKrevedko129.04.2021 03:10
-
AlinaTishka14.08.2022 17:59
-
donga12307.02.2023 01:19
-
ulianiabelka28.11.2021 11:52