• 21 November 2013
    • Химия
    • Автор: Alena2361

    Решить задачи:
    Задача 1. Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый и последний элементы.
    Задача 2. Составьте программу, которая организует ввод массива а [1..8] с клавиатуры, затем преобразовывает массив, заменяя все отрицательные элементы их модулями.


    • 21 November 2013
    • Ответ оставил: Umar231001

    Задача 1.
    Var a,z:integer;
    m:array[1..10] of integer;
    begin
    for a:=1 to 10 do
    m[a]:=random(10)+1;
    z:=m[1];
    m[1]:=m[10];
    m[10]:=m[z];
    end.
    Задача 2
    var a:array[1..8]of integer;
    i:integer;
    begin
    for i:=1 to 8 do
    readln(a[i]);
    for i:=1 to 8 do
    if a[i]<0 then a[i]:=abs(a[i]);
    writeln;
    for i:=1 to 8 do
    write(a[i],' ');
    end.

    Оцените ответ

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету...

Последние и похожие вопросы