Одномерный масив (ПРАКТИКА)

[Mr0max]

Ребят помогите пожалуйста,сдавать практику нужно,а я не бум бум. Решите задачу пожалуйста.
Задание. Одномерный масив
N1,...,N7-наименование операций по ремонту оборудования;
S1,...,S7-стоимость каждой операции.
Напечатать список операций,стоимость которых от 100 до 150 рублей.
Указать самую дорогую операцию.
Язык ПАСКАЛЬ

[MyLastHit]

Хотите помощь или программу? Язык хоть указали бы)

[Mr0max]

Программу .
Язык Паскаль!

[malinoff]

Готов помочь за небольшое вознаграждение

[Alex11223]

Тут не любят тех, кто просит полностью и бесплатно решить задачу (написать код) без каких-либо своих мыслей, наработок. Но в разделе фриланс за 150-200р с радостью это сделают в кратчайщие сроки
Хотя может быть вам повезет и кто-нибудь добрый когда-нибудь напишет за вас.

[Mad_Cat]

k:=1;
for i:=1 to 7 do begin
if (s[i]>=100) and (s[i]<=150) then writeln(n[i]);
if s[i]>s[k] then k:=i;
end;
writeln(n[k]);

[VKorablev]

бррр.....апять халявщики....вот хотябы ради приличия написали begin & end., и сказали бы что не знаю что делать дальше

[Mr0max]

uses crt;
type
MasN = array[1..8] of string;
MasS = array[1..8] of integer;
var
N: MasN; S: MasS;
i,m: integer;
begin clrscr;
writeln('Введите список наименований: ');
for i:=1 to 7 do read(N[i]);
writeln('Введите цены: ');
for i:=1 to 7 do read(S[i]);
clrscr;
writeln; writeln('Наименование | Цена');
writeln('=======================');
for i:=1 to 7 do begin
write(N[i]:12,' |', S[i]:7);
if S[i]>S[i+1] then m:=i;
writeln;
end;
writeln; writeln('Самая дорогая операция: ');
writeln(N[m]:12,':',S[m]:7);
readkey;
end.

[Mr0max]

Можете проверить? Правильно?

[Alex11223]

МАИГЛАЗА

Используйте тег [CODE] , а не [b] )
А в чем проблема самому проверить правильность?