Категория
Информатика, опубликовано 13.02.2019 04:50

Вмассиве из 10 целых чисел подсчитать сумму элементов, стоящих правее минимального.написать программу на языке паскаль., .

Ответы

Ответ
Ответ оставил: Гость
По теореме косинусов
Ответ
Ответ оставил: Гость
Var a: array [1..10] of integer;     i, min, sum: integer; begin       for i : = 1 to 10 do       begin           a[i] : = random(50);           writeln('[', i, '] => ', a[i]);       end;             min : = a[1];       for i : = 2 to 10 do           if (min > a[i]) then min : = a[i];       i : = 1;       while ((i < = 10) and (a[i] < > min)) do       begin             sum : = sum + a[i];             inc(i);       end;       writeln(sum); end.
Ответ
Ответ оставил: Гость
Какую таблицу фото добавь хотябы
Ответ
Ответ оставил: Гость
Компьютером управляет операционная система состоящая из набора различных программ при помощи различных команд. Если имеется ввиду удаленное управление компьютером, то разные программы бывают.
Ответ
Ответ оставил: Гость
Var
i,a:integer;
b,c:real;
Begin
read(a);
for i:=1 to a do begin
read(c);
b:=b+c;
end;
writeln(c/a);
end.


Другие вопросы по информатике

Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 2 на вопрос по информатике: Вмассиве из 10 целых чисел подсчитать сумму элементов, стоящих правее минимального.написать программу на языке паскаль., .... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube