Pascal

4. СП замены в массиве нулевых элементов массива на квадрат певого элемента

program visavi;
uses CRT;
var
q,n,i:integer;
A:array [1..100] of integer;
begin
clrscr;
write('Введите количество элементов в массиве: ');
readln(n);
for i:=1 to n do 
	begin
		writeln('Введите ',i,'-й элемент массива: ');
		readln(A[i]);
	end;
writeln;
q:= A[1]*A[1];
writeln('Старый массив:');
for i:=1 to n do
	begin
		write(A[i], ', ');
	end;
writeln;
for i:=1 to n do
	begin
		if A[i]=0 then A[i]:=q;
	end;
writeln('Новый массив:');
for i:=1 to n do
	begin
		write(A[i], ', ');
	end;
readln;
end.

3 программка) паскаль не проходил , напишу на С++, если не дуб то сможешь взять алгоритм и переделать)

void main () {
int A[50],i,j,max.min;
for (i=0;i<50;i++;)    
cin<<A[i];             //ввод
max=A[0];
min=A[0];
for (i=1;i<50;i++;) {
if (A[i]>max)
max=A[i];     
if (A[i]<min)
min=A[i]; }     ///нашли max min
cout<<max-min;
}

Блин. Неужели такую фигню в следущем году буду проходить

13 ниче сложного, так кажется

3. СП вычисления разности между max и min элементом массива.

program visavi;
uses CRT;
var
z,p,q,n,i:integer;
A:array [1..100] of integer;
begin
clrscr;
write('Введите количество элементов в массиве: ');
readln(n);
for i:=1 to n do 
	begin
		writeln('Введите ',i,'-й элемент массива: ');
		readln(A[i]);
	end;
writeln;
q:=A[1];
for i:=2 to n do
	begin
		if A[i]>q then q:=A[i];
	end;	
p:=A[1];
for i:=2 to n do
	begin
		if A[i]<p then p:=A[i];
	end;
writeln('Максимум: ',q);
writeln('Минимум: ',p);
z:=q-p;
writeln;
writeln('Результат: ',z);
readln;
end.

13,я тоже

1. Составить программу нахождения натурального наибольшего среди тех элементов массива, что лежат в интервале от C по D (интервал я задаю сам)

program visavi;
uses CRT;
var
q,c,d,n,i,j:integer;
A:array [1..100] of integer;
B:array [1..100] of integer;
begin
clrscr;
write('Введите количество элементов в массиве: ');
readln(n);
for i:=1 to n do
  begin
    writeln('Введите ',i,'-й элемент массива: ');
    readln(A[i]);
  end;
write('Введите C: ');
readln(c);
write('Введите D: ');
readln(d);
j:=0;
for i:=1 to n do
  begin
    if (A[i]>=C) and (A[i]<=D) then
      begin
        j:=j+1;
        B[j]:=A[i];
      end;
    end;
writeln;
writeln('Массив элементов из интервала CD:');
for i:=1 to j do
  begin
    write(B[i], ', ');
  end;
writeln;
q:=B[1];
for i:=2 to j do
    begin
        if B[i]>q then q:=B[i];
    end;
writeln('Максимум в интевале CD: ',q);
readln;
end.

EZHIK (Сегодня / 14:12)
5. СП подсчёта чисел наименьших по модулю элементов массива.

Наименьших по модулю, что значит наименьших? 10 самых наименьших? Или наименьших в каком то интевале?
---
С тебя магарыч, второе задание накидаю, как домой прийду.

Делфи (Сегодня / 17:06)
Дельфями пойдет?

Синтаксис делфи чем то от паскаля отличается? Ну конечно если грубо сравнивать только простые вычисления и работу с массивами.

Neformat (Сегодня / 18:23)
Или наименьших в каком то интевале?

Наименьших в каком-то интервале...

Neformat (Сегодня / 18:23)
С тебя магарыч

это че? :-D?