Вывести на экран фамилии имя всех учащихся, сумма оплаты которых, больше 50000

@Аселя · Регистрация: 27.06.2010

Студворк — интернет-сервис помощи студентам

Двумерный массив. в первом столбце заданы фамилий учащихся, во втором имена, в третьем сумма оплаты за год. вывести на экран фамилии имя всех учащихся, сумма оплаты которых, больше 50000 и меньше 90000 тенге. Подсчитать их количество.

@Puporev · 13.09.2010, 18:43

Pascal

uses crt;
const nmax=50;
var a:array[1..nmax,1..3] of string[15];
    n,i,k:byte;
    t:longint;
    c:integer;
begin
clrscr;
repeat
write('Количество учащихся до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите данные:');
for i:=1 to n do
 begin
  writeln('Учащийся ',i);
  write(' Фамилия: ');readln(a[i,1]);
  write(' Имя: ');readln(a[i,2]);
  write(' Оплата: ');readln(a[i,3]);
 end;
writeln('Список учащихся с оплатой 50000-90000 tg:');
k:=0;
for i:=1 to n do
 begin
  val(a[i,3],t,c);
  if(t>50000)and(t<90000) then
   begin
    k:=1;
    writeln(a[i,1],' ',a[i,2]);
   end;
 end;
if k=0 then writeln('Таких учащихся нет.');
readln
end.

@Аселя 0 / 0 / 0 Регистрация: 27.06.2010 Сообщений: 16
		1
	Вывести на экран фамилии имя всех учащихся, сумма оплаты которых, больше 50000 13.09.2010, 18:13. Показов 1567. Ответов 1 Метки нет (Все метки) Двумерный массив. в первом столбце заданы фамилий учащихся, во втором имена, в третьем сумма оплаты за год. вывести на экран фамилии имя всех учащихся, сумма оплаты которых, больше 50000 и меньше 90000 тенге. Подсчитать их количество. 0

Опции темы

Вывести на экран фамилии имя всех учащихся, сумма оплаты которых, больше 50000

Решение