Ну, 1 неправильно) И кстати, а самому английский алфавит сложно повторить?
CPU - Процессор
RAM - Оперативная память
ROM - Постоянная память
HDD - Жёсткий диск
Sound Card - Звуковая память
//PascalABC.Net 3.0, сборка 1064
const
n=20;
var
a:array[1..n] of integer;
i,imax,imin:integer;
s:longint;
begin
Randomize;
Writeln('Исходный ряд значений');
imax:=1; imin:=1;
for i:=1 to n do begin
a[i]:=Random(51)-25; Write(a[i],' ');
if a[i]>a[imax] then imax:=i
else
if a[i]<a[imin] then imin:=i
end;
Writeln;
if imax>imin then
Writeln('Максимальный элемент встретился позже минимального')
else begin
s:=0;
for i:=imax+1 to imin-1 do s:=s+a[i];
Writeln('Сумма элементов между максимальным и минимальным значением ',s)
end
end.
<em><u>Тестовое решение:</u></em>
Исходный ряд значений
10 -3 9 5 20 10 6 2 -19 -19 6 -24 -7 -1 23 11 -8 -16 -14 -25
Сумма элементов между максимальным и минимальным значением -27
<span>#include <math.h>
#include <iostream.h>
int main()
{
int x, Pr;
cin >> x; //вводим первое число
for (Pr = 0; x!=5; )
{
Pr * = x; //Умножаем очередное введенное число с произведением
cin >> x; //ввод следующего числа
}
cout << Sum; //вывод посчитанного произведения
return 0;
<span>}</span></span>
Словесная форма (стоимость - С):
начало;
<u>введите</u> С;
<u>если</u> С > 1000 <u>тогда</u> С = С * 0,95
<u>иначе</u>
<u>если</u> С > 500 <u>тогда</u> С = С * 0,97;
<u>напечатать</u> С;
конец.
Вид - ветвление. Двойное условие.