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

program program1; vara: array [1..10] of integer; i: integer; beginrandomize; writeln('исходный массив: '); for i: =1 to 10 dobegina[i]: =random(10)+1; writeln('a[',i,']=',a[i]); end; for i: =1 to 10 doif i mod 2 = 0 then a[i]: =sqr(a[i]); writeln('преобразованный массив: '); for i: =1 to 10 dowriteln('a[',i,']=',a[i]); end.

1)свойство интеллектуальных систем выполнять творческие функции, которые традиционно считаются прерогативой человека; наука и технология созданияинтеллектуальных машин, особенно интеллектуальныхкомпьютерных программ.

2)Основными компонентами базы данных являются таблицы, за формы, отчеты, макросы и модули. Таблица – фундаментальная структура системы управления реляционными базами данных. ВMicrosoft Access таблица – это объект, предназначенный для хранения данных в виде записей (строк) и полей (столбцов)

3)в целом и, в частности, Всемирная Паутина (World Wide Web) имеют стройную систему адресации, обеспечивающую точную идентификацию каждого входящего в Сеть узла путем присвоения ему оригинального адреса, имеющего числовой вид. ... Системаобразования доменных имен также логична и

Проверенные ответы содержат информацию, которая заслуживает доверия. На «Знаниях» вы найдёте миллионы решений, отмеченных самими пользователями как лучшие, но только проверка ответа нашими экспертами даёт гарантию его правильности.

{Задача сделана на языке паскаль, при Оформление сделана как для студенческой задачи

Если есть во пиши в личку

Задача:Написать программу на языке программирования Pascal, которая вводит с клавиатуры 4 числа и выводит результат вычисления спо следующей схеме: "число1"−"число2"/"число3"+"число4"

Автор:

Дата:  }

 var  x1, x2, x3, x4: integer;

f:real;

begin

//Ввод

writeln('введите 1 число');

readln(x1);  

writeln('введите 2 число');

readln(x2);  

writeln('введите 3 число');

readln(x3);  

writeln('введите 4 число');

readln(x4); //решение

f:=(x1-x2)/(x3+x4);  

//вывод

writeln (f);

end.