Регистрация
katyaydalova15
18.05.2020 02:06
Информатика
Есть ответ 👍

1) Проверить знание пользователем таблицы умножения: вывести k примеров и выставить оценку (90-100% правильных ответов - «отлично», 75-89% - «хорошо», за 55-74% - «удовлетворительно», менее 55% - «плохо»). 2) Определить размер оплаты при договорной форме обучения студента за интересующий пользователя период T с учетом скидок, предоставляемых за отличную успеваемость (30%), малоимущим (25%), сиротам (50%).
Диаграммой несси-шнайдермана с блок схемами

296
338
Посмотреть ответы 1

Ответы на вопрос:

owe4kinad
owe4kinad
4,5(42 оценок)
2) uses crt; var a: array[0..200] of integer;             i,max,s: integer; begin clrscr; randomize;         writeln('дан массив: ');       for i: =0 to 200 do              begin                    a[i]: =-100+random(150);                     write(a[i],'   ');               end;           s: =0;             max: =a[0];         for i: =0 to 200 do                  begin                        if a[i] > max then max: =a[i];                         if a[i]> =0 then s: =s+1;                   end;                     writeln;             writeln('максимальный элемент массива   = ', max);               writeln('кол-во положительных элементов = ',s); readln; end.

Популярно: Информатика