Вывести фамилии, имена и отчества всех студентов мужского пола, не сдавших более двух экзаменов - Pascal

  1. вывести фамилии, имена и отчества всех студентов мужского пола , не сдавших более двх экзаменов

textual

Код:

type
  TStudent = record
    fio: String[63];
    male: Boolean;
    exam: array [1..3] of Integer;
  end;
var
  st: array [1..10] of Students;
  i, j, k, n: Integer;
begin
  {...}
  for i:=1 to n do with st[i] do
    if male then begin
      k:=0;
      for j:=Low(exam) to High(exam) do
        if exam[i]<3 then Inc(k);
      if k>2 then WriteLn(fio);
    end;
end.

Похожие ответы
  1. Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В (А и В вводятся с клавиатуры).

  1. Во входном файле записана следующая информация о каждом из 20 студентов некоторого вуза: <фамилия>, <имя>, <отчество>, <пол>, <возраст>, <курс> причем в фамилии, имени и отчестве -- не более 12 букв, пол указывается буквами "М" и "Ж", возраст -- целое от 16 до 35, курс -- целое от 1 до 5. Сведения о студентах отделены друг от друга точкой с запятой. Написать программу, которая вводит эту информацию и печатает следующие данные: самые распространенные мужское и женское имена;

  1. Ув.программисты помогите решить задачу.Дан файл целых чисел. Нулевых компонент в файле нет. Число отрицательных компонент равно числу положительных. Преобразовать файл таким образом, чтобы сначала были положительные числа, а затем отрицательные. Порядок следования как положительных, так и отрицательных чисел сохранить.

  1. Здравствуйте помогите! Делаю курсовую, в задании нужно блок схему и как она записывается в паскале.) Пожалуйста помогите мне, вроде если правильно, два задания я сделала... Остались ещё задания. Одно из них: Упорядочить ненулевые элементы второй четверти массива R по возрастанию обратных значений.  

  1. Значений функций y=2sin(3x-0,8) для х в интервале [-1.57;1.57] с шагом 0,25

  1. 1. Написать программу проверки знаний с проверкой тестируемого в списке 2. Написать программу расчета стоимости покупки и сдачи по номиналу 3. Написать программу которая в зависимости от введенного пользователем возраста выдает на экран некоторую строку 4. Написать программу выбора товара и расчета стоимости покупки 5. Написать программу подсчитывающую количество разных элементов в одномерном массиве 6. Написать программу подсчитывающую количество простых и количество четных чисел в таблице. Числа в таблицу вносятся пользователем 7. Написать программу, выдающую строк, внесенную пользователем, в обратном порядке 8. Подсчитать процентное соотношение положительных и отрицательных чисел в векторе 9. Написать программу заполняющую одномерный массив 1*10 числами каждое из которых является суммой двух предыдущих. Первые 2 числа задаются пользователем 10. Написать программувыдающую номер строки массива с максимальным средним арифметическим элементов 11. Написать программу подсчитывающую разницу между максимальным и минимальным элементом массива 12. Написать программу перемножающую 2 матрицы (1*М) и (М*1). Матрицы заносятся пользователем 13. Написать программу сравнивающую суммы главной и второстепенной диагоналей матрицы. Матрицу заносит пользователь 14. Написать программу которая позволяет пользователю занести в поле для ввода фамилию и имя через пробел а потом выводит фамилию в одну надпись а имя в другую 15. Написать программу находящую в каждой строке матрицы 5*5 максимальный элемент и заносящую эти .лементы в одномерный массив матрица заносится пользователем 16. Написать программу проверяющую является ли эта строка перевертышем (то есть читающейся как в прямом так и в обратном порядке без учета пробелов 17. Написать программу транспонирующую матрицу 10*10 (т.е. строки становятся столбцами) матрица заносится пользователем 18. Написать программу удаляющую все пробелы между словами За раннее огромное спасибо!

  1. Интересует, как вывести на экран только буквы, при любых нажатии клавиш? Ещё, как вывести только буквы русского алфавита? Выводи все символы: for A:=255 downto 0 do writeln('code simbol = ',A,'simbol = ',chr(A)); Может нужно как-то отсортировать?

  1. a1a2n + a2a2n – 1 + ... + anan + 1;

  1. Подсчитать число нулевых элементов для матриц a(n,m) и b(m,n),где m=3,n=4. если не сложно решите п л и з!!!очень прошу!


Нашли ошибку?
Развитие проекта
Яндекс.Метрика