Информатика 8 класс, помогите с 3 номером

Знания

Информатика

1 ответ:

fpsping4 года назад

0 0

получается словр НРФН что бы оно не значило :)

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

Помогите в Паскале изменить текст программы так, чтобы выводила не только индекс элемента, но и его значение var a:array[1..10]o

Елена Торопова [50]

Var
    a: array[1..10]of integer;
    i, k, n: integer;

begin
    Writeln('Исходный массив:');
    Randomize;
    for i := 1 to 10 do
    begin
        a[i] := Random(51) - 25;
        Write(a[i], ' ');
    end;
    Writeln;

    n := 0;
    k := 0;
    for i := 10 downto 1 do
        if a[i] > 0 then
        begin
            k := k + 1;
            if k = 2 then n := i;
        end;

    if k = 0 then
        Writeln('В массиве нет положительных элементов!')
    else
        Writeln('Предпоследний положительный элемент: a[', n, '] = ', a[n]);

    Readln;
end.

0 0

4 года назад

ПОМОГИТЕ!!! ПАСКАЛЬ!!! СРОЧНО!!! Массив 5 на 5 заполнить с клавиатуры выяснить сколько чисел над главной диагональю начинаются с

Katy-katy

Программа на Паскале.

Прилагается решение.

0 0

4 года назад

Дана программа на языке Паскаль. Переделать её на язык С++Var n, i, j, t: integer; Count, Names: array[1..16] of integer; Begin

Колибри16

Надоело при копировании из блокнота вручную ставить пробелы. Бред.

0 0

3 года назад

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

Дано целое число. Определить, сколько разрядов оно содержит Вывести на экран 1, если число однозначное, вывести на экран 2, если

Зимонина [1]

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

begin
var (n,k):=(ReadInteger,0);
while n>0 do (n,k):=(n div 10,k+1);
Writeln(k)
end.

0 0

4 года назад

Какие цели может преследовать автор Web- публикации

дима228822 [45]

<span>личные, рекламные, политические, коммерческие, общественные</span>

0 0

4 года назад