Выручайте ребят! Очень нужно(

[Nikita3000]

Задание.
Сделать блок схему и написать программу.
Вводятся два массива:
-наименование изделия;
-цена изделия.
Выбрать и распечатать те изделия, цена
которых ниже заданного уровня.Предельный уровень цены
изделия вводится с экрана.


------------------
1. Кросспостинг (создание одинаковых тем и сообщений) строго запрещён правилами форума.

ваша тема тут:
http://www.programmersforum.ru/showthread.php?t=225872

2. Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.

Модератор

[Rififi]

Nikita3000

Выручайте ребят! Очень нужно(

Йоу, братюнь!



Мне очень нужна эта видеокарта, а то я не смогу без тормозов поиграть во вскоре выходящий Crysis 3 на макс настройках.
Давай выручим друг друга?

[Stilet]

var i,z:integer; na:array[1..10] of string; ze:array[1..10] of integer;
begin
 for i:=1 to 10 do begin
  write('Naim = ');readln(na[i]);
  write('Zena = ');readln(ze[i]); 
 end;
 write('Perdel uroven zeny = ');readln(n);

 for i:=1 to 10 do begin if ze[i]>n then continue;
  write('Naim = ',na[i],'Zena = 'ze[i]); 
 end;
 readln;
end.

Подходит?