3 года назад

Дан массив из n элементов. Все отрицательные элементы возвести в квадрат

Знания

Информатика

1 ответ:

ELENA777AA3 года назад

0 0

A = []

for i in 0..100
a[i] = rand(400)-200
a[i] = (a[i] < 0) ? a[i]*a[i] : a[i]
end
p a

Читайте также

дан одномерный массив целых чисел.найти и вывести на экран среднее арифметическое элементов этого массива равных своим индексам

Елена Березнякова [58]

var a:array[1..10] of integer;
i,k:integer; s:real;
begin
randomize;
writeln('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(11);
write(a[i],' ');
if a[i] = i then begin s:=s+a[i]; inc(k) end
end;
writeln;
write('S = ',s/k)
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Найдите двоичное восьмеричное и шестнадцатеричное прпредстаение десятичной дроби ? числа 88,45

nuriddin11 [11]

Для представления чисел в микропроцессоре используется двоичная система счисления.
При этом любой цифровой сигнал может иметь два устойчивых состояния: «высокий уровень» и «низкий уровень». В двоичной системе счисления для изображения любого числа используются две цифры, соответственно: 0 и 1. Произвольное число x=anan-1..a1a0,a-1a-2...a-m запишется в двоичной системе счисления как

x = an·2n+an-1·2n-1+...+a1·21+a0·20+a-1·2-1+a-2·2-2+...+a-m·2-m

где ai - двоичные цифры (0 или 1).

0 0

4 года назад

РЕБЯТАА,ПОМОГИТЕ Разработать программу на языке Паскаль для ввода 2-х целых чисел а и b и вычисления их среднего арифметическог

Мухаил [2]

Var a,b: integer;
c: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
c:=(a+b)/2;
write('среднее арифметическое: ',c);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Объясните как решать a:x div 100b:x mod 100div 10c: x mod 10s: a+b+c 248,789,125 ребят,я очень вас прошу объясните срочно умоляю

Мериса [75]

A)div это целочисленное деление, если х=200 то результат будет равен 2
b)mod это остаток от деления если х=1250 то результат будет 1250mod100div10= 50div10=5
C)Если например 17 разделить на 3 то ответ будет 2 так как остаток равен 2

0 0

1 год назад

Помогите пожалуйста по информатике плиз

kabzone

Надеюсь, что так)
По крайней мере нас на информатике вот так гоняли.
rghost.**ru/68dDLdlX4-звёздочки сотри)
Вот так

0 0

4 года назад