С++, с++
в одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) сумму положительных элементов;
2) произведение элементов массива, расположенных максимальным по модулю и минимальным по модулю элементами;
упорядочить элементы массива по убыванию.
Эка верста выросла (как Коломенская верста) .
За семь верст киселя хлебать.
Ты от дела на недельку, а оно от тебя на саженьку.
Видеть на сажень сквозь землю.
Загадка разгадка да семь верст правды.
Каждый купец на свой аршин мерит.
Прямой, будто аршин проглотил.
Семи пядей во лбу.
Сам с ноготок, а борода с локоток.
От горшка два вершка, а уже указчик.
Полено к полену - сажень.
Москва верстой далека, а сердцу рядом.
Любовь верстами не меряется.
Сто верст молодцу не крюк.
От слова до дела - целая верста.
Верстой ближе - пятаком дешевле.
Жили с локоть, а осталось с ноготь.
В чужих руках ноготок с локоток.
Дай с ноготок, запросит с локоток.
Семь аршин говядины да три фунта лент (о бессмыслице)
1) От 10 до 14
2) random(1, 10); random(-10,10); random(50,100);
3)
var a:array[1..100] of integer;
i, p, o:integer;
begin
p := 0;
o := 0;
for i := 1 to 100 do
a[i] := random(-20, 20);
writeln(a);
for i := 1 to 100 do begin
if a[i] >= 0 then p := p + 1
else o := o + 1;
end;
writeln('Положительных: ' + p);
writeln('Отрицательных: ' + o);
end.
4)
var a:array[1..20] of integer;
b:array[1..20] of integer;
i:integer;
begin
randomize;
for i := 1 to 20 do
begin
a[i] := random(1, 5);
b[i] := random(1, 5);
end;
for i := 1 to 20 do begin
if a[i] = b[i] then begin
writeln('Номер: ' + i);
writeln('Значение: ' + a[i]);
end;
end;
end.