Задачка 1 Составить программу При поступлении в вуз абитуриенты , получившие

Question

Задачка 1 Составить программу При поступлении в вуз абитуриенты , получившие

Задачка 1 Составить программу При поступлении в университет абитуриенты , получившие quot;двойкуquot; на первом экзамене , ко второму не допускаются . В массиве A[n] записаны оценки экзаменующихся , приобретенные на первом экзамене . Подсчитать , сколько человек не допущено ко второму экзамену . Задача 2 В одномерном массиве , состоящем из n вещественных элементов , вычислить ; 1) минимальный элемент массива; 2)сумму частей массива , расположенных меж первым и заключительным положительными элементами . Преобразовать массив таким образом , чтоб поначалу располагать все элементы , одинаковые нулю, а позже-все другие .

Задать свой вопрос

Василий
Информатика
2019-10-26 05:26:49
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Укажите предложение, в котором употребляется фразеологизм.1)Перед трибуналом своей совести, перед лицом

Вычислите 2) 522,348 / 87 +2,7 * (0,84 - 0.128 :

8530 мм3 = сколько это см3. Сколько это будет кубический см?

1)Найти частную производную от функции Z=(y+x)^2+3x-2y в точке M(2;3) 2)Отыскать ^z/x^2,

В пакете 40 пряников из них 7 с обсыбкой и ?

Написать линейную программу на языке Паскаль для нахождения гипотенузы треугольника и

Выпишите слово,в котором на месте пропуска пишется буковка Е влюбч..вый раскле..вать

Животные у которых 6 ног это

Запишите 2 дроби больше 1/10, меньше 1/9

Футбольный клуб Надежда выиграл 12 матчей, что составило 40% от всех

Гость · Answer 1 · 2019-10-26 05:28:29+3:00

uses crt;

var i,count:integer;
a:array[1..15] of integer;
begin
randomize;
count:=0;
writeln(1-ый екзамен сдало 15 человек );
for i:=1 to 15 do
begin
a[i]:=random(5)+1;
if a[i] = 2 then inc(count);
end;
for i:=1 to 15 do writeln(Студент ,i, написал на ,a[i], раутов ); //не обезательно
writeln(На екзамен допущено ,count, человек!! );
readln;

end

О проекте

Задачка 1 Составить программу При поступлении в вуз абитуриенты , получившие

Добро пожаловать!