Влинейном массиве целых чисел удалить элемент массива равный квадрату 5 элемента .если таких элементов нет,то выдать сообщение элементы для удаления не найдено

173

374

Посмотреть ответы 2

Ответы на вопрос:

agarkovatanech

Информатика

4,7(20 оценок)

Const n = 10; var a: array[1..n] of integer; i,k: integer; begin randomize; write('исходный массив: '); for i: = 1 to n do begin a[i]: =random(5); write(' ',a[i]); end; k: =0; writeln; for i: = 1 to n do if i < > 5 then if a[i] = a[5]*a[5] then k: =i; if k = 0 then writeln('таких элементов не найдено') else begin write('новый массив: '); for i: = k to n-1 do a[i]: =a[i+1]; for i: = 1 to n-1 do write(' ',a[i]) end; readln end.