profile
Опубликовано 6 лет назад по предмету Информатика от KatyaDamn

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

  1. Ответ
    Ответ дан blowberryninja
    program katyadamn;
    var a:array[1..10] of integer;   
    i,j:integer;
    begin
    writeln('Исходный массив:'); writeln;
    for i:=1 to 10 do
    begin
    a[i]:=random(9)+1;
    write(a[i],' ');
    end;
    j:=a[10];
    a[10]:=a[1];
    a[1]:=j;
    writeln('Полученный массив:');
    writeln;
    for i:=1 to 10 do
    write(a[i],' ');
    end.
Самые новые вопросы