Влинейном массиве целых чисел удалить элемент массива равный квадрату 5 элемента .если таких элементов нет,то выдать сообщение элементы для удаления не найдено
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.
//Блок-схемы в приложении //Pascal ABC.NET v3.0 сборка 1111
//1 Var a,p,s:real; begin readln(a); p:=a*4; s:=a*a; writeln('P=',p); writeln('S=',s); end.
//2 Var a,b:integer; begin read(a,b); if a>b then writeln(b); if a=b then writeln('='); if a<b then writeln(a); end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся. Ваш, Глеб 'I3artle' Косырев}
Var a1,a2,a3,a4,a5,max: integer; begin writeln ('Введите 5 чисел через пробел: '); readln (a1,a2,a3,a4,a5); begin if (a1>a2) then max:= a1else max:=a2; if (a2>a3) then max:=a2else max:=a3; if (a3>a4) then max:=a3else max:=a4; if (a4>a5) then max:=a4else max:=a5; end; writeln (max); end. Аналогично с минимальным числом. var a1,a2,a3,a4,a5,min: integer; begin writeln ('Введите 5 чисел через пробел: '); readln (a1,a2,a3,a4,a5); begin if (a1<a2) then min:= a1else min:=a2; if (a2<a3) then min:=a2else min:=a3; if (a3<a4) then min:=a3else min:=a4; if (a4<a5) then min:=a4else min:=a5; end; writeln (min); end. Можно так же решить с массива, если нужно пишите.
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.