Составить схему алгоритма и программу удаление из массива x(10) первого по проядку отрицательного элемента массива

142

163

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

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

raisaaaaaaaaaaaa

Информатика

4,5(24 оценок)

Во вложении блок-схема алгоритма. в ней считается, что массив х(10) уже имеется, поскольку в условии не сказано, как именно этот массив формируется. const n=10; var x: array[1..n] of integer; i,k: integer; begin { подготовка исходного массива } randomize; writeln('исходный массив'); for i: =1 to n do begin x[i]: =random(200)-100; write(x[i],' ') end; writeln; { непосредственно алгоритм } k: =0; i: =1; while (i< =n) and (k=0) do if x[i]< 0 then for k: =i to n-1 do x[k]: =x[k+1] else inc(i); for i: =1 to n-1 do write(x[i],' ') end. контрольное решение исходный массив 93 59 61 -76 30 -79 52 -76 91 -82 93 59 61 30 -79 52 -76 91 -82

dasha5010

Информатика

4,4(86 оценок)

Program cube; var a : real; begin writeln('программа вычисляет объем куба и площадь '+ 'его боковой поверхности по длине ребра'); {i - ввод + зод} repeat write('введите длину ребра куба '); readln(a); if a< =0 then writeln('ошибка! длина ребра не может быть нулевой или отрицательной. '+ 'повторите ввод.'); until a> 0; {ii, iii - расчет и вывод} writeln('длина ребра куба = ',a: 8: 3,' м'); writeln('объем этого куба = ', (a*a*a): 8: 3,' м^3'); writeln('а площадь его боковой поверхности = ', (6*a*a): 8: 3,' м^2'); writeln('нажмите [enter] для завершения программы'); readln; end.