|
Помогите пожалуйста с решением)
|
|
1. Дан целочисленный массив А, содержащий 8 чисел. Упорядочить элементы массива от бодьшего к меньшему.
2. Из квадратной матрицы сформировать одномерный массив, содержащий все нулевые и четные элементы матрицы.
3. Написать функцию ,которая по координатам точки определяет в каком квадранте координатной плоскости она находится.
Кс
|
|
|
|
1.
var
a:array[1..8]of integer;
i,j,q:integer;
begin
for i:=1 to 8 do
read(a[i]);
for i:=1 to 8 do
for j:=1 to 7 do
if a[j]>a[j+1] then begin q:=a[j];a[j+1]:=a[j];a[j]:=q;end;
for i:=1 to 8 do
write(a[i],' ');
end.Quote (oksusha6j) 2. Из квадратной матрицы сформировать одномерный массив, содержащий все нулевые и четные элементы матрицы.
var
a:array[1..100,1..100]of integer;
n,i,j:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do begin
read(a[i,j]);
if (j mod 2=0)or(a[i,j]=0) then write(a[i,j],' ');end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
составьте программу отыскания наименьшего среди тех элементов одномерного массива A(N), что лежит вне интервала(C,D)
и блок схема не помешала бы :)
Спасибо заранее :)
|
|
|
|
Quote (Елманов) составьте программу отыскания наименьшего среди тех элементов одномерного массива A(N), что лежит вне интервала(C,D)
var
a,amin,i,n,c,d:integer;
begin
amin:=max(amin);
read(n,c,d);
for i:=1 to n do begin
read(a);
if (a<c)or(a>d) then
if a<amin then amin:=a;end;
writeln(amin);
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Program qwe;
Uses crt;
Label 1;
var x,y: Real;
Begin
Clrscr;
Write ('x,y=');
Read(x,y);
Write('Точка расположена ');
if x=0 then Begin Write('на оси OY');goto 1; end;
if y=0 then Begin Write('на оси OX'); goto 1;end;
if (x>0) and (y>0) then Begin
Write('в первой четверти');
goto 1;
end;
if (x<0) and (y>0) then begin
Write('во второй четверти');
goto 1;
end;
if (x<0) and (y<0) then Begin
Write('в третьей четверти');
goto 1;
end
else Write('в четвертой четверти');
Readkey;
end.
Помогите сделать Блок-Схему. Заранее спасибо
|
|
|
|
Каким макаром я тебе тут блок-схему сделаю?)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Ну где нибудь напиши) например в Word. и этот документ кинь в ЛС ))
|
|
|
|
Мне лень))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Не флуди)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
