Регистрация
Neymar3110
22.07.2022 05:42
Информатика
Есть ответ 👍

Написать уравнение в microsoft visual basic с userform.

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

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

Tvoy1Batya
Tvoy1Batya
4,6(15 оценок)

program mm;

var a: array [1..10] of real; i: integer; s: real;

begin

for i: =1 to 10 do begin

    writeln("введите элемент номер ",i); read(a[i]);

                          end;

for i: =1 to 10 do

  if (a[i]> =2) and (a[i]< =5) then s: =s+a[i];

 

writeln(s); readln;

end.

 

если что, пиши в личку.

 

 

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