Решение задачи в паскале

[Натуськ@25]

2 В городе N магазинов. О каждом магазине известен ежемесячный доход и расход магазина. Вывести номера магазинов, у которых расход превысил доход. решите аааа

[Arigato]

решите аааа

А сами что делали?

[Натуськ@25]

program magaz;
type
Data = record
Plus, Minus : integer;
Name : string[25];
end;
const k=5;
var
List : array[0..k] of Data;
i: integer;
begin
for i := 1 to k do
begin
Write('Enter Name: ');
Readln(List[i].Name);
Write('Dohod?: ');
Readln(List[i].Plus);
Write('Rashod?: ');
Readln(List[i].Minus);
end;
WriteLn;
WriteLn('Table 1:');
WriteLn('N D R');
for i := 1 to k do
begin
Write(List[i].Name);
Write(' ',List[i].Plus);
WriteLn(' ',List[i].Minus);
end;
WriteLn;
WriteLn('Table 2:');
WriteLn('N D R');
for i := 1 to k do
begin
if (List[i].Minus > List[i].Plus) then
begin
Write(List[i].Name);
Write(' ',List[i].Plus);
WriteLn(' ',List[i].Minus);
end;
end;


end.

[XeN0N]

это элементарная задача
1. Если ваш уровень не позволяет ее решить, подумайте над ней, чтоб повысить его (не ваш случай)
2. Если вы из окна крикните случайному прохожему "сгоняй мне за пивом аааа", я сомневаюсь что он будет это делать. Так и здесь, легкую работу, которую вы сами в состоянии сделать за вас никто делать не будет.

[wolfman]

Люди, помогите, пожалуйста, решить две задачи...
1)В заданном массиве A(N) поменять местами наибольший и наименьший элементы (первые по порядку, если их несколько).
2)В заданном массиве A(N) определить количество элементов, которые меньше заданного значения.
* * *
Задачи вроде лёгкие... Но понять никак не могу,как решать ... А завтра надо сдать... Пожалуйста

[-HunteR-]

wolfman
1)Объясни подробнее, так как первые идут до половины, а вторые после половины.
Используй третью переменную!

2)

program second;
uses crt;
var x,c,n,i:integer;
a:array[1..100] of integer;
begin;
clrscr;
randomize;
write('Введите количество элементов массива');
readln(n);
write('Введите х');
read(x);
for i:= 1 to n do
begin
A[i]:=random(100)-random(100);
end;
c:=0;
for i:= 1 to n do
begin
if a[i]<x then
begin
c:=c+1;
end;
end;
writeln('Наш ответ:',c);
readkey;
end.

[Arigato]

wolfman, это элементарные задачи. О чём тогда вообще можно говорить?

[wolfman]

-HunteR-, дружище!!! Спасибо Помог
Очень благодарен
А то,я сидел, фдуплял вчера)))
А первую, не знаешь?

[wolfman]

Arigato, согласен... Всё познаётся со временем

[wolfman]

=-HunteR-;
wolfman
1)Объясни подробнее, так как первые идут до половины, а вторые после половины.
Используй третью переменную!

* * *
Вот фото задачи с учебника (Задача #8)