Задан массив A из 13 элементов(2,13,-21,32,7,11,9,-5,4,-15,21.8.3)определить сумму всех элементов,которые больше числа 10 и найт
НИКОЛАЙ323
DATA 2,13,-21,32,7,11,9,-5,4,-15,21,8,3
DIM a(1 TO 13) AS INTEGER
s = 0: k = 0
FOR i = 1 TO 13
READ a(i)
IF a(i) > 10 THEN s = s + a(i)
IF a(i) > 0 THEN k = k + 1
NEXT i
CLS
PRINT "S="; s; ", kol-vo polozhitelnykh="; k
<u><em>Результат</em></u>
S= 77 , kol-vo polozhitelnykh= 10
<span>Вот как он устроен.
Для начала каждой цифре от 1 до 9 плюс 0 придаются определенные буквенные значения, некоторые люди видят глубокий, почти мистический смысл в соотношении букв и цифр. Другие утверждают, что в этом нет вообще никакого смысла и эти соотношения абсолютно произвольны. Мы занимаем промежуточную позицию. Если вы считаете, что вы видите смысл в буквенных значениях цифр, это замечательно. Это может помочь вам лучше запомнить эти соотношения. Если вы не видите никакой связи, это тоже неплохо. </span><span>1 = т или д
2 = н
4 = ч или р
5 = л
6 = ш, щ или ж
7 = г или к
8 = в или ф
9 = б или п
0 = с или з</span>
Плохое фото пришли на белой бумаге четко написаное
Ответ:
двух слов по 2 байта
тттттттттттттттттттттттттт
Поскольку алгоритма нет, имею право ввести свой:)
procedure swap(var a, b: real);
var t: real;
begin
t := a;
a := b;
b := t;
end;
var a, b, c: real;
begin
readln(a, b, c);
if (a > b) then swap(a, b);
if (b > c) then swap(b, c);
if (a > b) then swap(a, b);
writeln(a, ' ', b, ' ', c);
<span>end.
В ответе будет
а = 10
b = 18
с = 26 =)</span>
