3 года назад

Сроооочно . помогите решить задачу по инфе. 10 класс Одномерные массивы,паскаль

Знания

Информатика

1 ответ:

semmy6663 года назад

0 0

На фотографии вся программа с вводом случайных чисел в массив. Удачи

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

Дан массив А с количеством элементов n<=10 (элементы вводить с клавиатуры).Найдите сумму элементов этого массива , которые ра

Елена 2606 [21]

Вместо слов тип укажешь real если массив действительных чисел или integer - если целые числа

var a: array[1..10] of тип
i,n:integer; max, min, sum: тип
begin
write('Введите количество элементов массива'); readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]; min:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
for i:=2 to n do if a[i]>min then min:=a[i];
sum:=0;
for i:=1 to n do if (a[i]>min) and (a[i]<max) then sum:= sum+a[i];
write('Сумма элементов массива расположенных между максимальным и минимальным = ', sum);
end.

0 0

4 года назад

Компьютерные вирусы и борьба с ними. Напишите на эту тему Актуальность. Пожалуйста

Yurka [7]

Актуальность состоит в том, что вирусы тормозят компьютер, т к отслеживают все ваши действия, запоминает пароли и т д. Борьба с вирусами спасает наши конфиденциальную информацию. Но вирусы развиваются, они находят новые лазейки в защите компьютера, поэтому нам очень важно все время бороться с ними.

0 0

3 года назад

Переведите шестнадцатеричные цифры в 2 и в систему очисления 190 и (маленькими цифрами 16) это информатика помогите пожалуйста

Assera

190 (16) = 110010000 (2)

если я правильно понял, то тогда так

0 0

4 года назад

Завтра экзамен!!Помогите пожалуйста составить программу!! !Используя функцию или процедуру вычислить среднее арифметическое чисе

Ильнар

Var x,y,z,c:real;
Procedure P(x,y,z:real; Var c:real);
Begin
c:=(x+y+z)/3;
End;
Begin
write('Введите x,y,z: ');readln(x,y,z);
P(x,y,z,c);
writeln('Среднее арифметическое = ',c);
End.

0 0

4 года назад

Подсчи айте в килобайтах количество информации в тексте если текст состоит из 800 символов , а мошьность используемого алшавита-

Pavel088

0.8 Кб
Подсчитайте,если что

0 0

4 года назад