4 года назад

Номер 6 плиз фаст... ...

Знания

Информатика

1 ответ:

Руслан Леонидович4 года назад

0 0

Локальный Диск С:/Рисунки/Закат

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

Составьте программу заполнения массива a [1..10] случайными целыми числами в диапазоне от n до m. Числа n и m введите с клавиату

Людмила0210

// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var (n,m):=ReadInteger2('Введите через пробел n и m:');
var a:=ArrRandom(10,n,m);
a.Println
end.

Пример
Введите через пробел n и m: -6 20
15 10 16 17 1 14 -4 19 1 18

0 0

3 года назад

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

Ребят, на вас вся надежда!!!!!!!!!!!!! Информатика 8 класс! Паскаль!!!!!!!!! Напишите программу, которая вычисляет площадь и пер

Фотиния5485

Var
    a, b: real;

begin
    readln(a, b);
    writeln('S=', a * b);
    writeln('P=', 2 * (a + b));
end .

Мне это мама сказала если что-то не правильно скажи,исправлю

0 0

3 года назад

Помогите срочно нужно!!!! В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов р

Alenka 777 [173]

В переменной с вычисляется количество пар элементов, в которых A[i-1] < A[i] (т.е. в паре соседних элементов предыдущий элемент меньше следующего). Это следующие пары: 1,6 ; 6,7 ; 7,8 ; 6,9. Таких пар всего 4, значит значение переменной с будет = 4.

0 0

3 года назад

Написать алгоритм и программу решения следующей задачи: Ширина стороны прямоугольника В см, а длина в 2 раза больше. Найти площа

Елена Гринёва [1]

S прямоугольника= а×в S= в×2в; S=3в

0 0

4 года назад

составьте программу которая запрашивает значения элементов одномерного числового массива а, стоящего из 10 элементов,формирует и

Rufinai

program z1;
uses crt;
var m: array[1..10] of integer;
i,a,b,c:integer;
begin
for i:=1 to 10 do
readln(m[i]);
writeln;
a:=0;
b:=0;
c:=1;
for i:=1 to 10 do
begin
if m[i]<=0 then a:=a+m[i];
if m[i] mod 3 = 0 then b:=b+1;
if i mod 2 = 0 then c:=c*m[i];
end;
writeln(Сумма отриц'',a);
writeln(кратные 3'',b);
writeln(произв'',c)
end.

0 0

4 года назад