Предмет: Информатика,
автор: aawwuu24
Решите в Кумире или паскале (в кумире кнч буду больше рада)
Заполнить массив 20-ю числами так, что каждый пятый элемент был равен 1, остальные равны 0. Вывести массив на экран.
Заполнить массив вводом с клавиатуры. Если будет введено отрицательное число, программа возьмет его модуль.
Ответы
Автор ответа:
2
// ===================================
// 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.
// 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.
Похожие вопросы
Предмет: Математика,
автор: Pearcik
Предмет: Математика,
автор: damelikonakbaeva25
Предмет: Обществознание,
автор: Jxstdrag
Предмет: Химия,
автор: Kate19042000
Предмет: Литература,
автор: Аноним