Помогите написать программу Pascal!
10-11 класс
|
При поступлении в институт абитуриенты получившие "двойку" за первый экзамен,не допускаются до второго. Дан список абитуриентов и их оценки на первом экзамене. Составьте список абитуриентов допущенных ко 2 экзамену.
Дано:
n:=10
Массив А-Фамилии(записываются вручную)-string
Массив B-оценки random(4)+1
Найти: Массив С[j]-string
const n=10;
var a:array [1..n] of string;
b:array [1..n] of Integer;
c:array [1..n] of string;
i,j:Integer;
begin
Randomize;
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
b[i]:=random(4)+1;
for i:=1 to n do
begin
if b[i]>2 then
begin
c[i]:=a[i];
write(c[i],'-',b[i],' ');
end;
end;
Readln;
end.
Другие вопросы из категории
1) 100111
2) 11001
Написать программу! Спасибо)
Какое из чисел K, записанных в двоичной системе, отвечает условию N<K<M?
Читайте также
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
13.
Нужно написать программу на цикле с предусловием, на Паскале.
Дано натуральное число n. Написать программу вычисляющую сумму
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу