Задать вопрос
29 ноября, 08:31

Записать задачи на языке Паскаль (используются циклы)

1. Дан массив А имеющий 100 элементов. Заполнен в интервале - 400 до 70. Заменить числа в массиве большие К на само число К

2. Дан массив А, имеющий 50 элементов. Заполнен в интервале от - 100 до 10. Посчитать количество положительных чисел.

+3
Ответы (1)
  1. 29 ноября, 11:52
    0
    1)

    const n=100;

    var a:array[1 ... n] of integer;

    i, k:integer;

    begin

    Randomize;

    writeln ('Массив A:') ;

    for i:=1 to n do

    begin

    a[i]:=random (471) - 400;

    write (a[i]:5) ;

    end;

    writeln;

    write ('k = ') ;

    readln (k) ;

    for i:=1 to n do

    if a[i]>k then a[i]:=k;

    writeln ('Измененный массив:') ;

    for i:=1 to n do write (a[i]:5) ;

    writeln;

    end.

    Пример (для n=10) :

    Массив A:

    -294 - 223 - 187 51 - 79 - 288 - 367 38 21 - 25

    k = Измененный массив:

    -294 - 223 - 187 5 - 79 - 288 - 367 5 5 - 25

    2)

    const n=50;

    var a:array[1 ... n] of integer;

    i, k:integer;

    begin

    Randomize;

    writeln ('Массив A:') ;

    for i:=1 to n do

    begin

    a[i]:=random (111) - 100;

    write (a[i]:5) ;

    end;

    writeln;

    k:=0;

    for i:=1 to n do

    if a[i]>0 then k:=k+1;

    writeln ('k = ', k) ;

    end.

    Пример (для n=10) :

    Массив A:

    -92 - 93 - 84 - 77 - 9 - 3 8 - 68 - 25 - 89

    k = 1
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Записать задачи на языке Паскаль (используются циклы) 1. Дан массив А имеющий 100 элементов. Заполнен в интервале - 400 до 70. Заменить ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы