напишите программу, которая вводит с клавиатуры дынные о n лицах (n меньше либо равно 50) и выводит на экран фамилии и имена тех, кто родилсяв
10-11 класс
|
день z месяца.
type
person=record
fam:string;
imya:string;
day:integer;
end;
var
a:array[1..50] of person;
i,n,z:integer;
begin
write('n=');readln(n);
for i:=1 to n do
begin
write('fam-');readln(a[i].fam);
write('imya-');readln(a[i].imya);
write('day-');readln(a[i].day);
end;
write('z-');readln(z);
for i:=1 to n do
if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);
readln;
end.
Другие вопросы из категории
матрицы размером в n строк и m
столбцов составить алгоритм и программу вычисления:
б) (14 (8);20(8)) в восьмеричной системе
в) (28(16);30(16)) в шестнадцатеричной системе
Ответ для каждого числа запишите в указанной и десятичной системах счисления.
Читайте также
а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива