Дан массив от 1до 10.Обнулить каждый элемент этого массива
10-11 класс
|
program xxx;
uses CRT;
var
a:array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
a[i]:=0;
write('A=[');
for i:=1 to 9 do
write(a[i], ', ');
write(a[10], ']');
end.
Другие вопросы из категории
else f:=f(copy (x,2,a), a-2); end; begin writeln (f(‘abcdefghijklm’,7)); end.
1.С клавиатуры вводится целое двузначное число.Вывести на экран сумму его цифр.
2.Найти все двузначные числа,в которых есть цифра 4.
Прошу,помогите.
Читайте также
,отрицательные.(из х массива) 2)найти минимальный элемент массива х(1..10)и максимальный элемент массива.поменять их местами и вывод результирующего массива на экран
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива