сервис вопросов и ответовдан массив состоящий из 13 элементов подсчитать сумму элементов массива кратных 4
10-11 класс|
|
Alenaholod222
07 нояб. 2016 г., 12:49:22 (7 лет назад)
Ceeenna11
07 нояб. 2016 г., 13:39:01 (7 лет назад)
var
a:array [1..13] of integer;
i,w:integer;
begin
for i:=1 to 13 do
begin
a[i]:=random(100);
if a[i] mod 4 = 0 then
inc(W);
end;
writeln(w);
end.
Ололошка89
07 нояб. 2016 г., 15:27:30 (7 лет назад)
как заполнять массив?
Ответить
Другие вопросы из категории
система>подсистемы.удаление каких элементов из систем,приведут к потере эфекта,те невозможности выполнения основного назначения систем(выделить
существенные и несущественные)
костюм->брюки->пуговица->нитка
автомобиль-> двигатель->поршень
компьютер->системный блок->материнская плата->шина->контроллер жестких дисков
телефонная сеть->соединительные провода->узлы->абонентская аппаратура
школа->руководство->персонал->актив->учащиеся
армия->командующий->рядовой->автомат
государство->президент->министры->народ
Читайте также
Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
Помогите пожалуйста решить задачки в паскале.
1.В одномерном массиве перенести элемент, стоящий на первом месте в конец массива.
2.вывести на печать номера точек, лежащих в круге радиусом r. Координаты точек заданы массивами (x1,x2,...,x10), (y1,y2,...,y10).
3.В одномерном массиве найти сумму положительных, произведение отрицательных, количество четных элементов.
4.Дан массив, состоящий из 50 элементов, найти предпоследний нечетнный элемент.
Дан массив , состоящий из n элементов, и числа a и b. Вычислить .
Y=П (от 1 до n) a( в степени xi)-b(в степени xi)
Вы находитесь на странице вопроса "дан массив состоящий из 13 элементов подсчитать сумму элементов массива кратных 4", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.