Подсчет количества четных элементов в массиве (перевод с Паскаля) - VB

Формулировка задачи:

Задание: Подсчет количества четных элементов в одномерном массиве. Заранее спасибо

                    Листинг программы
                
 
                        
                          
                    
program massiv7;
uses crt;
const N=10;
type x=array [1..N] of integer;
var a:x;
i:integer;
k:integer;
begin
clrscr;
randomize;
for i:=1 to N do
begin
a[i]:= +10+random (91);
write (A[i]:5)
end;
writeln;
k:=0;
for i:=1 to N do
if a[i] mod 2=0 then
begin
k:=k+1
end;
writeln (‘Количество четных элементов =  ’,k:5);
readln
end.

Решение задачи: «Подсчет количества четных элементов в массиве (перевод с Паскаля)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Const N = 10
Sub program_massiv7()
Dim a(1 To N) As Integer
Dim i As Integer
Dim k As Integer
'begin
Cls
Randomize (Timer)
For i = 1 To N 'do
'begin
a(i) = 10 + Rnd * 91
Print a(i); "  ";
Next i
Print
k = 0
For i = 1 To N 'do
If a(i) Mod 2 = 0 Then
'begin
k = k + 1
End If
Next i
Print "Количество четных элементов =  "; k:
 
End Sub

Оцени полезность:

9 голосов , оценка 4.111 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы