Сожмите массив выбросив каждый 3 его элемент.Выведите на экран исходный и измененный результат
Ответы на вопрос
Ответил Студэнt
0
//PascalABC.Net 3.2
begin
var a:=ReadArrInteger('Вводите массив: ', readinteger('Кол-во элементов: '));
a.Println;
for var i:=0 to length(a)-1 do if (i+1) mod 3<>0 then print(a[i]);
end.
begin
var a:=ReadArrInteger('Вводите массив: ', readinteger('Кол-во элементов: '));
a.Println;
for var i:=0 to length(a)-1 do if (i+1) mod 3<>0 then print(a[i]);
end.
Ответил Студэнt
0
И что?
Ответил Студэнt
0
У нас все "дебилы" уже давно на C# и C++ пересели
Ответил Аноним
0
Не, это уже не просто дебилы, это уже быдлокодеры, следующая стадия шизофрении. Я про студентов.
Новые вопросы