Предмет: Информатика, автор: wgwarfa86

Помогите с информатикой пожалуйста
Напишите программу,
прибавляющую ко всем
элементам массива по
единице. Выведите на
экран оба массива.


lozromanik: На каком языке надо написать?
wgwarfa86: Pascal
lozromanik: Ых
lozromanik: массив заполняет польщователь?
politerhon: хороший вопрос ))
politerhon: напиши оба варианта: рандом и пользовательская правка
politerhon: один закоментируй

Ответы

Автор ответа: politerhon
3

program znanija;

const N = 8;//Количство элементов массива, задаешь любое

//значение от 0 до бесконечности

var

i:integer;

arr: array[0..N]of integer;

begin

for i:=0 to N do

arr[i]:=random(100);

writeln(arr);

//прибавление едениц к каждому элементу

for i:=0 to N do

arr[i]:=arr[i]+1;

writeln(arr);

end.

Приложения:

politerhon: Надеюсь помог
wgwarfa86: спасибо большое
Похожие вопросы
Предмет: Українська мова, автор: Надин2016
Предмет: Алгебра, автор: mobfire98