нарисовать блок схему. Вводится множество из 10 различных чисел (отрицательных и положи-тельных, целых и дробных), среди которых есть 0.Определить порядковый номер последнего отрицательного числа в множестве чисел.БЛОК СХЕМА

284

378

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

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

milashka455

Информатика

4,4(60 оценок)

Var a: array [1..4] of integer; i,n: integer; begin writeln('введите номер билета'); readln(n); for i: =1 to 4 do begin a[i]: = n mod 10; n: = n div 10; end; if a[1] + a[2] = a[3] + a[4] then writeln('билет является счастливым') else writeln('билет не является счастливым'); end.