Написать программку на паскале 20) Поменять k-й элемент одномерного массива на 0,
Написать программку на паскале
20) Поменять k-й элемент одномерного массива на 0, если этот элемент четный и на 1 если он нечетный
2 ответа
Ленка Клубыкова
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var k:=ReadInteger('k=')-1;
a[k]:=a[k].IsEven?0:1; a.Println
end.
Пример
n= 20
77 8 10 -7 -45 55 -49 -89 28 55 -26 -28 -51 -61 -91 25 75 -18 33 -59
k= 5
77 8 10 -7 1 55 -49 -89 28 55 -26 -28 -51 -61 -91 25 75 -18 33 -59
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var k:=ReadInteger('k=')-1;
a[k]:=a[k].IsEven?0:1; a.Println
end.
Пример
n= 20
77 8 10 -7 -45 55 -49 -89 28 55 -26 -28 -51 -61 -91 25 75 -18 33 -59
k= 5
77 8 10 -7 1 55 -49 -89 28 55 -26 -28 -51 -61 -91 25 75 -18 33 -59
Кирилл
Program var begin end
Лидия
у нас просто усвоют что это не мы решали
Жека Андриков
С этим драться на уровне школьников не получится. Это ведь не только по информатике преподают нечто замшелое.
София
PROGRAM A24;
const
max = 20;
var
c:array[1..max]of integer;
x:integer;
i, k:byte;
BEGIN
writeln('Заменить k-й элемент одномерного массива на 0, если этот элемент четный и на 1 если он нечетный');
writeln(' ');
writeln('Исходный Массив' );
randomize;
for i:=1 to max do begin
c[i]:=random(-64,64);
write(c[i], ' ');
end;
writeln(' ');
writeln(' ');
write('Введите k='); readln(k);
writeln(' ');
if odd(k) then
c[k]:=1
else
c[k]:=0;
writeln(' ');
writeln('Измененный массив' );
for i:=1 to max do
write(c[i], ' ');
END.
const
max = 20;
var
c:array[1..max]of integer;
x:integer;
i, k:byte;
BEGIN
writeln('Заменить k-й элемент одномерного массива на 0, если этот элемент четный и на 1 если он нечетный');
writeln(' ');
writeln('Исходный Массив' );
randomize;
for i:=1 to max do begin
c[i]:=random(-64,64);
write(c[i], ' ');
end;
writeln(' ');
writeln(' ');
write('Введите k='); readln(k);
writeln(' ');
if odd(k) then
c[k]:=1
else
c[k]:=0;
writeln(' ');
writeln('Измененный массив' );
for i:=1 to max do
write(c[i], ' ');
END.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов