Регистрация
привет6365
03.08.2020 08:19
Информатика
Есть ответ 👍

Записать программу, которая на название фигуры (треугольник, квадрат, ромб, прямоугольник и т.п.) выводит формулу, по которой вычисляется площадь этой фигуры. в программе использовать оператор case. visual basic скрин получившейся программы

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

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

Chuiruss
Chuiruss
4,6(64 оценок)
Var a: array[1..10000] of integer; x,y,z,i,n: integer; begin write('введите количество элементов массива: '); readln(n); writeln('введите элементы массива: '); x: =0; z: =0; y: =0; for i : = 1 to n do begin readln(a[i]); if (a[i])> 0 then x: =x+1 else if (a[i])=0 then  z: =z+1  else  y: =y+1; end; writeln('положительных элкментов масива: ', x); writeln('отрицательных элкментов масива: ', y); writeln('нулевых элкментов масива: ', z); end.

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