Решите в Кумире или паскале (в кумире кнч буду больше рада)
Заполнить массив 20-ю числами так, что каждый пятый элемент был равен 1, остальные равны 0. Вывести массив на экран.
Заполнить массив вводом с клавиатуры. Если будет введено отрицательное число, программа возьмет его модуль.
Заполнить массив 20-ю числами так, что каждый пятый элемент был равен 1, остальные равны 0. Вывести массив на экран.
Заполнить массив вводом с клавиатуры. Если будет введено отрицательное число, программа возьмет его модуль.
More Questions From This User See All
Answers & Comments
// 1
// ===================================
var
A: array [1..20] of integer;
i: integer;
begin
for i := 1 to 20 do
begin
if i mod 5 = 0 then
A[i] := 1
else
A[i] := 0;
write(A[i]:2);
end;
end.
// ===================================
// 2
// ===================================
var
A: array [1..5] of integer;
i: integer;
begin
for i := 1 to 5 do
begin
write('A[',i,'] = ');
readln(A[i]);
if A[i] < 0 then
A[i] := abs(A[i]);
end;
for i := 1 to 5 do
write(A[i]:2);
end.