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

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

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

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

+4
Ответы (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. Заменить ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1) Дан одномерный массив А[N], - целых чисел. Заменить все большие 7 члены массива числом 7. Найти количество таких членов. 2) Задан массив из 10 элементов, найти произведение элементов массива. Задача №3.
Ответы (1)
Помогите решить задачи на паскаль. 1) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти произведение всех элементов массива. 2) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Ответы (1)
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
1) дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов 2) Дан массив целых чисел.
Ответы (1)
1) Запишите внутреннее представление десятичного числа - 104 в 8-разрядной ячейке памяти компьютера Ниже запишите ответ - только само число, без пояснений 2) Запишите внутреннее представление десятичного числа 79 в 8-разрядной ячейке памяти
Ответы (1)